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1.0 


1.1 


1.2 


GENERAL PROGRAM INFORMATION. 


PROGRAM PURPOSE (ABSTRACT). 


THIS DIAGNOSTIC IS A LOGIC TEST TO VERIFY THE OPERATION OF THE 
DLV11-E_ SERIAL LINE INTERFACE. THE PROGRAM AS SET INITIALLY 
DEFAULTS TO ok OPTIONS, EXCEPT PROGRAMMABLE BAUD RATE, 
ENABLED AND A WRAP_CABLE — THE USER CAN SELECTIVELY 
TES THE OPTIONS BY ALTERING THE 


NABLE AND DISABLE TING OF s 
CON F - THE DIAG ag ts IS DESIGNED TO TEST AND 
DETECT FAULTS TO THE EVEL). 


LOGIC LEVEL 
THIS TEST OPERATES ON UP TO SIXTEEN(16) IDENTICALLY CONFIGURED 
DLV11-E SERIAL LINE INTERFACES. THE DEFAULT ADDRESSES ARE: 


175610 -FIRST SERIAL LINE ADDRESS OF 16 CONSECUTIVE 
SERIAL LINE DEVICES. 
300 = VECTOR FOR FIRST OF 16 DEVICES. 
THIS PROGRAM IS DESIGNED TO RUN ON ANY PDP=-11 WITH 4K OF 
MEMORY AND A DLV11-E (LSI-BUS) MODULE. IT CAN RUN UNDER XXDP, 
PT, oy & MONITORS, AND ON PROCESSORS WITH NO HARDWARE 
NOSTIC TO RESTART. 
SYSTEM REQUIREMENTS. 
HARDWARE REQUIREMENTS: 
ANY PDP-11 FAMILY PROCESSOR 
4K MEMORY - MINIMUM 


H315 = CABLE TURN AROUND PLUG (OR EQUIVALENT) 
MODEM CABLE = BCO1V-X OR BCO5C=-x 


SOFTWARE REQUIREMENTS: 

THIS DIAGNOSTIC IS DESIGNED TO RUN IN ANY OF _ THE 
FOLLOWING ares 

STAND ALONE 

WITH APT a mt f= 


WITH ACT MONITO 
WITH XXDP MONITOR (CHAINABLE ) 


SEQ 0003 
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| 8340 
| 8341 1.3 RELATED DOCUMENTS AND STANDARDS. 
| 8343 DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 175=003-009-02 
| B44 APT MD-11=DZ7MA 
| 8345 ACT AUTOCAT=11-QZAUB 
| 8346 SYSMAC MD-11=DZQAC 
| 8347 

8348 

8349 1.4 DIAGNOSTIC HIERARCHY PREREQUISITES. 

8350 NO SPECIAL DIAGNOSTICS ARE REQUIRED TO RUN BEFORE THIS, BUT 

8351 THE PROCESSOR, MEMORY, AND BUS ARE ASSUMMED TO BE FULLY 
| 8352 OPERATIONAL. 
| 8353 
| 8354 
| 8355 1.5 ASSUMPTIONS. 

Re 

8358 THIS DIAGNOSTIC ASSUMES THAT THE OPERATOR | HAS INITIALIZED 

8359 LOCATION "$USWR’ AND '$DEVM' TO THE PROPER 

8360 THE (H) JUMPER must OBE REMOVED FROM ALL BLVIIEE® S UNDER TEST. 

8362 

8365 2.0 OPERATING INSTRUCTIONS. 

8365 

8366 

8367 2.1 LOADING AND STARTING PROCEDURES. 

8369 USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED 

Bane MEDIAL 

8372 THIS DIAGNOSTIC HAS ONLY ONE (1) STARTING ADDRESS. 200 FOR 

8375 START AND RESTART. 

8375 THE USER CAN SELECT A SPECIFIC TEST TO BE EXECUTED BY SETTING 

8376 SWITCH 8 IN THE SWITCH H REGISTER AND THE TEST NUMBER (IN OCTAL) 

8377 IN THE LOWER BYTE. (NOTE: ALL TESTS PREVIOUS TO THE SELECTED 

8578 ONE ARE EXECUTED WITHOUT iTERATIONS. > 

8380 

8381 2.2 SPECIAL ENVIRONMENTS. 

8383 THIS DIAGNOSTIC FOLLOWS THE STANDARD PROCEDURE FOR RUNNING 

8384 UDER APT,ACT,XXDP MONITORS, AS DESCRIBED IN THEIR RESPECTIVE 

8585 PROCEDURES MANUAL AND SYSMAC PACKAGE. 
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2.3 


OPERATIONAL SWITCH SETTINGS 


IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A_ SWITCH 
REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH 
OWS ER THE SAME T OPTIONS AS_ THE 


HARDWAR REGIST 

REGISTER DOES _NOT EXIST OR_IF ONE DOES AND IT CONTAINS 
ALL ONES (177777) THEN THE SOFTWARE SWITCH REGISTER 
(LOC. 176) IS USED. 


CONTROL: 


THIS PROGRAM ALSO SUPPORTS THE tae $3 LOADING OF THE SOFTWARE 
SWITCH REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE 
ACCOMPLISHED BY DOING THE FOLLOWING: 


1) TYPE CONTROL G <*G>; THIS WILL ALLOW THE TTY TO ENTER 
LT a LOC. 176 AT SELECTED POINTS WITHIN THE 


2) THE MACHINE WILL THEN TYPE:* SWR=XXXXXX NEW=" (XXXXXX IS 
THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER.) 


3) AFTER THE ‘NEW=" HAS BEEN TYPED THEN THE OPERATOR CAN DO 
ONE OF THE FOLLOWING AT THE TTY: 


A) eS A Raa? TO BE LOADED INTD LOC. 176 FOLLOWED BY 
A ONLY NUMBERS BETWEEN 0-7 WILL BE og th ge 
LEADING. = NEED NOT BE TYPED, AND IF MORE é 
1 edt ARE TYPED THE LAST 6 WILL BE USED. IF ie <CR> 
IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 

REGISTER CONTENTS WILL NOT BE CHANGED. 


B) IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL 
SEND YOU BACK TO STEP 3. 


C) IF THE INPUT CHARACTER IS NOT ONE OF THE CHARACTERS 
MENTIONED ABOVE THEN A QUESTION MARK (?) WILL BE TYPED 
FOLLOWED BY A _CARRAGE RETURN AND A LINE FEED 
THEN PROCEED FROM STEP 35 (ERASING ALL PREVIOUS INPUT.) 


DYNAMIC SWITCH REGISTER 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 
(UNUSED) 

INHIBIT ITERATIONS 
BELL ON ERROR 


ON ERROR 
LOOP ON TEST IN SWR<7:0> 
TEST NUMBER TO LOOP ON (USED WITH BIT 8) 


ee ae et 
SOMOOO—NWEUWM 


GN 


SEQ 0005 
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8444 
Bree 2.4 PROGRAM OPTIONS. 
8447 THIS PROGRAM WILL SUPPORT TESTING OF MULTIPLE DLV11-E'S IT 
8448 REQUIRES THE RESS OF THE FIRST RCSR (STORED AT '$BASE") AND 
8449 ITS INTERRUPT he (STORED AT ‘S$VECT1"); AND WILL BE 
8450 TO ADDRESS ANY DLV11-E STA 7 AT THE SPECIFIED BASE ADDRESS 
8451 UP TO i. CONSECUTIVE DEVICES 
8452 EXAMPL $BASE: 175610 
oth SVECT1: 300 
8455 THE PROGRAM WILL BE ABLE TO TEST ANY DLVI1-E WITHIN THE 
eree ADDRESS RANGE 175610 ==> 176000 
8458 — AND $VECT1 DEFAULT TO 175610 AND 300 RESPECTIVELY. 
8459 THE PROGRAM cs206 tates UNIT NUMBERS AS FOLLOWS: (NUMBERS IN 
8460 PARENTHESIS ARE OCTAL) 
8461 UNIT#O == ete! ADDRESS STORED AT ‘$BASE' 
8462 ASSOCIATED BASE VECTOR STORED AT ‘$VECT1° 
8463 UNIT#1 == BASE ADDRESS + (10) 
8464 BASE VECTOR + (10) 
8465 : 
8466 : UP TO 
8467 ! 
8468 UNIT#15 == BASE ADDRESS + (170) 
444 BASE VECTOR + (170) 
8471 LOCATION "S$DEVM* IS USED AS A BIT MAP TO INDICATE WHICH UNIT 
th NUMBERS ARE PRESENT AND WILL BE TESTED. 
8474 BIT 15 BIT 1 BIT 0 
8475 =e SB ee we www eee toe eer ees ene ew eowrae eee ere eee 
8476 ‘UNIT! ‘UNIT ! UNIT! 
8477 : 13% 
BE7B A ET TTT 
8479 
8480 A BIT MAP CAN BE ENTERED AT ‘$DEVM* PRIOR TO STARTING THE 
8481 PROGRAM. 
8482 
8483 EXAMPLE: 
8484 $BASE: 175610 
8485 SVECTOR: 300 
8486 SDEVM: 13 
8487 
84 THE PROGRAM WILL TEST- 
8489 
8490 UNIT#O 175610 300 
8491 UNIT#1 175620 310 


8492 UNIT#3 175640 330 


H 
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96 OPTIONS 
84 


/ 8500 LOCATION ne CONTAINS ALL THE USER SELECTABLE OPTIONS. THE 
8501 VALUES att THIS WORD MUST CONFORM TO THE ACTUAL BOARD 
8502 CONFIGUR ATION. 

Bent THE DEFAULT VALUE OF SUSWR IS AS FOLLOWS: 


8505 BIT POSITION DEFINITION DEFAULT VALUE 


8506 SGGesene>] TPwrmeweerrernw i i <<a <a» <a seseres 


8508 0-3 #OF DATA BITS 
09 


hanno 
2<O2@ 
oC 
J 


BAUD RATE OFFSET 
(SEE FOLLOWING NOTE) 
BREAK GENERATION ENABLED 
cat TERMINATED (H315) 

AND (FD) JUMPERS IN 
(NOT DEFINED) 


nun 
~ 
m 
4) 


1 

0 

0 

ON SPEED 1 
PROGRAMMABLE BAUD RATE 8 
1 

1 

1 


co 
wi 
—_ 
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8522 NOTE 
8524 THIS DIAGNOSTIC DOES NOT TEST THE PARITY LOGIC. 


WHEN THE he gages BAUD RATE OPTION IS 
ABL THE RAMABLE 


PLACE BI <11: 
8532 WITH THE OFFSET INDICATED IN THE TABLE 
8533 AT THE END OF THE PBR TEST 


36 
LU DLV11-E INDIVIDUAL TEST REQUIREMENTS 
See ¢ oe eet oS eel ey - A ae aa ee ee ee re “T""TESTS NOT EXECOTED ~~ iF BIT = 


oo awe co ee 


0G UD 132) 1 
8543 BREAK GENERATION C! BIT O° “OF  SUsuR) 13st 

Be us 13. 16. 117,720,121 1 

8545 2°T23;PARTS OF 134, 1 

1 


8547 (-FR) & (=FD) JUMPERS IN (BIT 14 OF $SUSWR) 15,176,716,117,120,T22, 
8548 128 


8550 ALL OTHER TESTS WILL RUN REGARDLESS OF ANY BIT SETTINGS. 


i 
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2.5 


EXECUTION TIMES. 


EXECUTION TIMES ARE FOR AN LSI=11 PROCESSOR WITH ALL _ OPTIONS 
510 bie THE DLV11-E (EXECPT FOR PROGRAMMABLE BAUD RATE), AT 


FIRST PASS=- 90 SECONDS 
ADDITIONAL PASSES 95 SECONDS 
ADDITIONAL DEVICES 95 SECONDS 


THE TEST TIME IS BAUD RATE DEPENDANT; HIGHER BAUD GIVES 
SHORTER PASS TIMES. 


oz 


en 
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3.0 


3.1 


3.2 


4.0 


4.1 


ERROR INFORMATION. 


ERROR REPORTING PROCEDURE. 


SINCE THIS DIAGNOSTIC WAS DESIGNED TO FIT IN 4K OF MEMORY THE 
is ks sitet, IS VERY BRIEF. THE FORMAT OF THE ERROR TYPEOUT 


TEST#_____,ERROR#_____.PC=_____ ,ADDRESS= 


WHERE ALL VALUES TYPED ARE OCTAL. 

THE ADDRESS AND VECTOR REFER TO THE FAILING DLV11-E. 

FOR FURTHER INFORMATION THE LISTING MUST BE CONSULTED. 

BITS 15,13,10 AND 9 OF THE SWITCH REGISTER CONTROL THE 
SEQUENCE OF EVENTS AFTER AN ERROR IS CAUGHT. 


-VECTOR= 


BIT 15 = CAUSES THE PROGRAM TO HALT IN THE ERROR 
paneees. CONTINUEING THE PROGRAM CAUSES IT TO 


BIT 13 = DISABLES THE PRINTING OF THE ERROR MESSAGE. 
BIT 10 = CAUSES THE BELL TO RING ON ERROR. 


BIT 9 = CAUSES THE DIAGNOSTIC TO LOOP FROM BEGINNING 
OF TEST TO ERROR. 


THE ERROR ROUTINE SUPPORTS THE CONTROL G FUNCTION. 
ERROR HALTS. 


THE ONLY HALT IN THIS DIAGNOSTIC IS IN THE ERROR ROUTINE, AND 
IS_ EXECUTED ONLY IF BIT 15 OF THE SWITCH REGISTER IS A ONE 
WHEN AN ERROR OCCURS. 


PERFORMANCE AND PROGRESS REPORTS. 


PERFORMANCE REPORTS. 


AS EACH DEVICE COMPLETES ONE PASS OF THE DIAGNOSTIC THE 
FOLLOWING WILL BE TYPED: 
CSR: CTOR:_____. ERRORS: 


WHERE."CSR: | ___* IS THE DEVICE CSR UNDER TEST 
"VECTOR? =! 1S THE ASSOCIATED VECTOR 
AND "ERRORS:~* 18 THE TOTA NUMBER OF ERRORS ON THIS DEVICE 


NOTE 


SEQ 0009 


— 


MAINDEC=22=CNDVA-A MACY11 30(1046) 16*DEC=82 15:13 PAGE 148-1 : 
CNDVAA.P11  16=DEC=82 15:12 SEQ 0010 
| 624 THIS IS TYPED AFTER THE DEVICE HAS COMPLETED ITS PASS. 

8626 AFTER ALL DEVICES WAVE BEEN EXERCISED AN END PASS STATEMENT IS 

8628 “ENDPASS#_____."" 
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SEQ 0011 


5.0 DEVICE INFORMATION TABLES. 


so 4’ ww Ww WW 9 8 7’. © 5 4 3 2 1 


ERATE EEE REE EEE AEE ERERAEAAEEEEEEEHEEEE EEE 


RCSR!DATA!RING!CLR :CAR IRCVRIREC { | IRCVRIRCVRIDATAL = SEC {REQ 1DTR | 
‘INT | ISEND'DET tact iRec ! =! = IDONE!IE !IE iXMITISEND! =} =} 
eel TM ER ES SR TE ne bh ne EO 
soa! we} en ee Ee ae ae RECEIVED DATA BUFFER ! 
in ierR ierRierm! $+ i i 3 
MerrrerrrrerrererrrrrrrrrrrrrerrerTrrTrrerreriririiritititritiititiiitiLi TLL Lei. 
TCSR! PROGRAMMABLE BAUD :PBR} = | | IXMITIXMIT! = | =| IMAINE {BREA 
RATE SELECT i‘enaBi + i: ippy tie $ i | 

Nt 5 St, PR OOM NE ERE Te, a BS 
aad OE CURE PORT SOE Kee ee ee ee TRANSMITTER DATA BUFFER 


i i i i i i i i 
POT TTT TTT TTT IT TILT LETT LILLE LIL LLL LI LL LLL LLL LiL iii 


NOTE 


BLANK BOXES INDICATE — AND RESERVED 
BIT POSITIONS. SEE THE LISTING FOR AN 
EXPLANATION OF THE BITS. 


iC 
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6.0 


SUMMARY OF TESTS AND SPECIAL SUBROUTINES. 


TEST 1 ADDRESSABILITY 


THIS 434 LE THAT THE ADDRESS AS PLACED IN_ THE 
HARDWARE “TABLE TO BE CORRECT AND THE DLVI1-E 
RESPONDS 10. THAT ADDRESS SPACE. 


THE FOLLOWING 8 TESTS TEST ALL ‘READ WRITE’ BITS 


TEST é BREAK = TCSRO SET, CLEAR, RESET 


TEST 3 MAINT = TCSR2 SET, CLEAR, RESET 


TEST 


TEST 


XMITIE = TCSR6 SET, CLEAR, RESET 


i 


ow 


DTR = RCSR1 SET, CLEAR 


NOTE 
1} DOES NOT CLEAR THIS BIT. WE CANNOT TEST 
FOR AN INITIAL CONDITION AS THIS BIT IS 
UNDEFINED UPON POWER UP AND INIT DOESN'T 
AFFECT IT. 
TEST 6 REQSEND = RCSR2 SET, CLEAR, RESET 
THIS TEST ASSUMES THAT JUMPER FR IS IN. 


TEST 7 SECXMIT = RCSR3 SET, CLEAR, RESET 
TEST 10 DATAIE = RCSRS SET, CLEAR, RESET 


TEST 711 RCVRIE = RCSR6 SET, CLEAR, RESET 


SEQ 0012 
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8720 THE FOLLOWING 4 TESTS VERIFY THAT RESET (INIT) INITIALIZES 
READ ONLY BITS. 


orse TEST 12 RCVRDONE = RCSR 7 = IS CLEARED BY INIT 


8728 TEST 13 XMITRDY = TCSR 7 = IS SET BY INIT 
8729 ---- => 


or3s TEST 14 DATAINT = RCSR 15 = IS CLEARED BY INIT. 
34 


164] TEST 15 RCVRACT = RCSR 11 = 15 CILEARED BY INIT 


8739 THE FOLLOWING 4 TESTS VERIFY THAT THE EIA SIGNALS CAN BE 
8740 TRANSMITTED AND RECEIVED THROUGH THE CABLE. 


as TEST 16 CARDE? SETS AND CLEARS AS DTR SETS AND CLEARS 


or TEST 17 CLRSEND SETS AND CLEARS AS DTR SETS AND CLEARS 


3720 TEST 20 RING SETS AND CLEARS AS REQSEND SETS AND CLEARS 


erze TEST 21 SECREC SETS AND CLEARS AS SECXMIT SETS AND CLEARS 


ore TEST 22 DATAINT (RCSR-15) SETS WHEN DTR CHANGES STATE AND THAT 
8760 DATAINT IS CLEARED AFTER READING RCSR 
8763 NOTE 


64 
8765 ots TIED TO BOTH CARDET AND CLRSEND BY THE 


tess TEST 23 DATAINT SETS WHEN RING SETS AND THAT DATAINT 
8771 DOES NOT SET WHEN RING CLEARS 


8774 TEST 24 DATAINT SETS WHEN SECREC CHANGES STATE 
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SEQ 0016 


TEST 25 XMIT RDY = TCSR 7 = CLEARS WHEN TBUF IS LOADED 


WITH A_ CHARACTER AND_ THAT IT SETS WITHIN A 
REASONABLE AMOUNT OF TIME. 


TEST 26 OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) 


RESULTS IN RCVRDONE SETTING WITHIN A 
REASONABLE AMOUNT OF TIME AND THAT RESET 
CLEARS THE BIT. 


TEST 27 RCVRDONE IS CLEARED BY READING RBUF 


TEST 30 RCVRACT = RCSR 11 = SETS WHEN A START BIT IS 


1 aa AND CLEARS WHEN RCVRDONE =~ RCSR 7 = 


TEST 31 OVERRUN BIT = RBUF 14 


TEST 32 PROGRAMMABLE BAUD RATE TEST TEST AT ALL SPEEDS 


AVAILABLE A COMPARISON WILL BE MADE TO SEE IF 
NEW TIME IS LESS THAN PREVIOUS. 


TEST 35 TRANSMITTER INTERRUPT LOGIC TEST 


LOGICALLLY THIS IS 4 SEPARATE TESTS 
A) DOES 1oRity OF 0 INTERRUPT LOGIC WORK 


ONLY ONCE 
D) BUT NOT WITH INTERRUPT ENABLE CLEAR 


TEST 34 RECEIVER INTERRUPT LOGIC TEST THIS TEST COVERS ALL 


OF THE RECEIVER SIDE OF THE INTERRUPT LOGIC, BOTH 
DATASET AND CHARACTER MODES. 


TEST 35 TEST ACTUAL DATA  TRANSFERED NON-INTERRUPT 
MAINTENANCE BIT SET 


Fn ae 2 
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TEST 36 TEST DATA THROUGH CABLE 


TEST 37 FULL DATA TRANSFER WITH INTERRUPTS AND MAINTENANCE 


MODE. 


TEST 40 TEST BREAK GENERATION LOGIC TRANSMIT KNOWN CHAR 


WITH BREAK SET AND COMPARE RECEIVED WITH 0. 


TEST 41 NOT A TEST = SEND BACK TO LOOP 


NOTE 


FOR ALL OF THE FOLLOWING ROUTINES THE USE 
OF (R5) IS PART OF THE LINKAGE MECHANISM 
BETWEEN THE CALLER AND THE CALLED. 


ROUTINE: TIMER 


THIS ROUTINE IS USED TO TEST THE STATUS OF 
INPUTS ANY BIT IN ANY REGISTER. 


HOWLONG THE MAXIMUM AMOUNT OF TIME TO 
¥ END IN THIS ROUTINE. 


WHICHBIT A MASK WITH THE BIT(S) SET THAT 
ARE TO BE CHECKE 

REG A Bye TO THE REGISTER TO BE 

SETCLR THE DESIRED RESULTS == EITHER SET 
OR CLEAR 


OUTPUT: 
THE °C’ BIT IS SET TO INDICATE AN ERROR BUT IT 
IS TESTED BY THE IF.ERROR STATEMENT. 


SEQ 0017 


. 
C 
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ROUTINE: 


DATLNG 


INPUT: 


THIS ROUTINE SETS UP A MASK FOR DATA, WITH - 


NOTHING IS PASSED TO THIS ROUTINE BUT GLOBAL 
INFORMATION IS ASSUMED TO EX 

SUSWR-- THE WORD FOR SOFTWARE PARAMET ERS 
DATA== A MASK FOR THE LOCATION OF THE OCTAL 
NUMBER OF DATA BITS 


OUTPUT=-== 


ROUTINE: 


MASK== A MASK OF BINARY ZEROS RIGHT-JUSTIFIED 
THE NUMBER OF WHICH IS DEFINED IN $USWR WORD. 


WAI 


SERVICE 


ROUTINE: 


THIS ROUTINE IS USED TO DELAY EXECUTION a | THE 
MAIN PROGRAM FOR A SPECIFIED AMOUNT OF TIME. 
THIS IS ACCOMPLISHED BY INCREMENTING A 
REGISTER UP TO A LIMIT. THE INNER LOOP IS SET 
TO APPROXIMATE 1 MILLI SEC. 


ROUTINE: INTSRV 


THIS GLOBAL ROUTINE DOES NOTHING BUT INCREMENT 


*INTFLAG’ EACH TIME IT IS CALLED. IT ASSUMES 
oy a CALLING ROUTINE WILL KNOW WHAT 


CYCLE 


THIS ROUTINE CAUSES ADRS TO POINT TO THE 
ADDRESS OF DLV11-E UNDER TEST, ADRS +2 Lg 
POINT TO THE VECTOR OF THE DLV11-E UNDER TEST 

oe KEEPS TRACK OF THE CURRENT DEVICE AND BIT 


eoeme THE FOLLOWING ODT" START ADDRESS FOR SBC 11/21 IS ADDED 


G 2 
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8922 
8923 a 
8924 TITLE rt ae 
(1) s*COPYRIGHT (C) 1982 
(1) S*DIGITAL EQUIPMENT CORP. 
43 3 *MAYNARD, MASS. 01754 
$33 ; SPROGRAM BY ODES CHOATE 
(1) 2 STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
4 3 *PACKAGE (MAINDEC=-11=DZQAC-C35), JAN 19, 1977. 
| 8925 *SBTTL OPERATIONAL SWITCH SETTINGS 
j :* 
(1) 3* SWITCH USE 
j (1 ) * = ap oe oF a OD a> Se OD oe Ge oe ee Se ee ee ee 
(1) 3* 15 HALT ON ERROR 
| w@ 3s 14 LOOP ON TEST 
(1) 3* 13 INHIBIT ERROR TYPEOUTS 
| (1) 3* 11 INHIBIT ITERA ATIONS 
(1) 3* 10 BELL ON ERR aon 
(1) 7* 9 LOOP ON ERR 
asee 3* 8 LOOP ON free IN SWR<7:0> 
wif -SBTTL BASIC DEFINITIONS 
(1) gt INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
(1) 001100 STA Ck= 1100 
(1) “EQUIV EMT, ERROR :zBASIC DEFINITION OF ERROR CALL 
ae -EQUIV IOT,SCOPE 7:BASIC DEFINITION OF SCOPE CALL 
(1) lama; Comes DEFINITIONS 
(1) 000011 11 +3 CODE FOR wy TAB 
(1) 000012 ‘fe 12 sCODE FOR LINE FEED 
(1) 000015 CR= 15 3 CODE FOR CARRIAGE RETU 
(1) 000200 CRLF= 200 ;CODE FOR CARRIAGE RETURNL INE FEED 
(1) 177776 PS= 177776 : SPROCESSOR STATUS WORD 
(1) eEQUIV PS,PSW 
(1) 177774 STKLMT= 177774 s:STACK LIMIT REGISTER 
(1) 177772 PIRQ= 177772 7 PROGRAM INTERRUPT REGUEST REGISTER 
(1) 177570 DSWR= 177570 peter te SWITCH REGISTER 
4 177570 DDISP= 177570 HARDWARE DISPLAY REGISTER 

(1) 170000 ODTST= 

(1) s*GENERAL PURPOSE REGISTER ee hat ier 

(1) 000000 RO= 2%0 3;GENERAL REGISTER 
(1) 000001 R1= 21 + OENERAL REGISTER 
wa: 0002 Re= 2 ;:GENERAL REGISTER 
(1) 000003 R3= 23 3s :GENERAL REGISTER 

(1) 0004 R4= %4 7:GENERAL REGISTER 
/ mM 000005 R5= 85 GENERAL REGISTER 
(1) 000006 R6= %6 : RAL REGISTER 
(1) 000007 R7= %7 : ERAL REGISTER 
| (1) 000006 SP= %6 +:STACK POINTER 
He 000007 PC= %7 3;PROGRAM COUNTER 
| 


oz 


ro 
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CNDVAA.P11 16=DEC=82 15:12 BASIC DEFINITIONS SEQ 0020 ¢ 

(1) :*PRIORITY LEVEL DEFINITIONS 

(1) 000000 PRO= sO s PRIORITY LEVEL 0 

(1) 000040 PRI= 40 s:PRIORITY LEVEL 1 

(1) 000100 PR2= _—«- 100 ‘PRIORITY LEVEL 2 

(1) 00 PR3= «140 s:PRIORITY LEVEL 3 | 

(1) 000200 PR4= 200 s:PRIORITY LEVEL 4 

(1) 000240 PR5= 240 ‘PRIORITY LEVEL 5 

(1) 000300 PR6= 300 PRIORITY LEVEL 6 

(1) 000340 PR7= 340 ::PRIORITY LEVEL 7 | 

(1) :*''SWITCH REGISTER SWITCH DEFINITIONS 

(1) 100000 $w15= 100000 

(1) 040000 Sw14= 400 

(1) 020000 Sw13= 20000 

(1) 010000 SWi2= 10000 | 

(1) 004090 Swil= 400 

(1) 002000 SWw10= 2000 | 

(1) 000 swo9= 1000 

(1) 000400 swo8= 400 | 

(1) 200 sw07= 200 

(1) 060100 sw06= 100 

(1) 000040 sw0S= 40 

(1) 000020 gw04= 20 

(1) 10 SwO3= 10 

(1) 000004 SwO2= 4 

(1) 000002 SwOl= 2 

(1) 000001 swoo= 1 

(1) -EQUIV Sw09,SwW9 

(1) -EQUIV SWO8,SW8 

(1) -EQUIV SWO7,SW7 

(1) -EQUIV SW06,S 

(1) -EQUIV SWOS,SW5 

(1) sEQUIV SW04,SW4 

(1) -EQUIV SW03,SW3 

(1) -EQUIV SWO2,SW2 

(1) -EQUIV SWO1,SW1 

(1) -EQUIV SWw00,SWO 

(1) :*DATA BIT DEFINITIONS (BITOO TO B1T15) 

(1) 100000 BIT15= 10000 

(1) 040000 BIT14= 40000 

(1) 020000 BIT13= 20000 

(1) 010000 BIT12= 10000 

(1) 000 BIT11= 4000 

(1) 002000 BIT10= 2000 

(1) 001000 BITO9= 1000 

(1) 000400 BITO8= 400 

(1) 000200 BITO7= 200 

(1) 000100 BIT06= 100 

(1) 000040 BITOS= 40 

(1) 000020 BIT04= 20 

(1) 000010 BITO3= 10 

(1) 00004 BIT02= 4 

(1) 000002 BITO1= 2 

(1) 00001 BITOO= 1 

(1) -EQUIV BITO9,BIT9 
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16=DEC-82 15:13 
BASIC DEFINITIONS SEQ 0021 
-EQUIV BITO8,B1T8 
eEQUIV BITO7,B1T?7 
-EQUIV BIT06,BIT6 
-EQUIV 6B1T05,B1TS 
eEQUIV BIT04,B81T4 
EQUIV BIT03,B1T3 
EQUIV BITO02,BIT2 
-EQUIV B1IT01,B1T1 
-EQUIV 81T00,B81T0 
:*BASIC ‘‘CPU'’ TRAP VECTOR ADDRESSES 
ERRVEC= 4 3:TIME OUT AND OTHER ERRORS 
RESVEC= 10 ssRESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 33 BIT 
TRIVEC= 14 33; TRACE TRAP 
BPTVEC= 14 7 BREAKPOINT TRAP (BPT) 
IOTVEC= 20 3; INPUT/OUTPUT TRAP (IOT) **SCOPE** 
PWRVEC= 24 33;POWER FAIL 
MTVEC= 30 ssEMULATOR TRAP (EMT) **ERROR** 
TRAPVEC=34 37'"TRAP’’ TRA 
KVEC= zz: TTY KEYBOARD VECTOR 
TPVEC= 64 s:TTY PRINTER VECTOR 
peeeee THE FOLLOWING BREAK VECTOR AND LINE CLOCK VECTOR ARE INCLUDED 
VEC= 100 s;LINE CLOCK VECTOR 


:BREAK VEC 


LKVEC= 
BRKVEC= 140 TOR 
3;PROGRAM INTERRUPT REQUEST VECTOR 


PIRQVEC=240 ; 


LLMEM= 
ADRS= R 
GOOD= . R2 

AD= R 
REGISTER=R1 

T= R 
FUNCT= R35 
LEAD= R2 


FOLLOWS R4 

DLADDR= 175610 

z THE FOLLOWING DEFINITIONS APPLY TO THE GLOBAL SUBS 
CLR= 0 


FLERE AEE EREREE AEE EEE EAA EER TAREE ERAAAEAAEARE RHEE EEE EEE 


; RCSR REGISTER BIT NAMES 


FERRARA AERA EERE E EAE EERE EERE RARER EEREEEERERREREREEEEAEEERE EE 


DATAINT= BIT15 : DATASET INTERRUPT 
RING= BIT14 : RINGING SIGNAL INDICATOR 
CLRSEND= BIT13 + CLEAR TO SEND FROM DATASET 
CARDET= BIT12 : CARRIER DETECT 
RCVRACT= BIT11 + RECEIVER ACTIVE INDICATOR 
SECREC= BIT10 + SECONDARY RECEIVE 

3 UNUSED BITO9 

: UNUSE BIT08 
RCVRDONE = BITO7 : RECEIVER DONE 

CVRIE= B1106 + RECEIVER INTERRUPT ENABLE 
DATAIE= BITO + DATASET INTERRUPT ENABLE 


oz 


A A 


ie eet en ts thames 
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| 
| 8958 ; UNUSED 


BIT04 
8959 000010 SECKMIT= BIT03 : SECONDARY TRANSMIT DATA 
8960 000004 REGSEND= BIT02 * REQUEST TO SEND 
8961 000002 DTR= B1T01 DATA TERMINAL READY 
| 8962 ; UNUSED B1T00 
8964 4 aie ately Sg EO a ta a patty ela alata ints 
| 8965 » RBUF REGISTER BIT NAMES 
| 8966 PPISTIITTITTITTL TTT TT TTI TTT Titi iti Titiiiiiiitiiii iii titiiiiis 
8967 100000 ERROR= BIT15 ; ERROR INDICATOR 
8968 040000 ORERR= BIT14 : OVERRUN ERROR 
| 8969 020000 FRERR= BIT13 + FRAMING ERROR 
| 8970 010000 PERR= BIT12 : PARITY ERROR 
| 8971 ; UNUSED BIT 
8972 : UNUSED BIT10 
8973 : UNUSED BIT09 
8974 : UNUSED B1T08 
8975 000200 RDATA7= BIT07 3 \ 
| 8976 000100 RDATA6= BIT06 4 
8977 0040 RDATAS= BITOS : | 
8978 000020 RDATAG= BITS : "\ RECEIVED DATA BITS 
000010 RDATA3= BITO3 : 
5980 00004 RDATA2= BITO2 >! 
8981 000002 RDATAI= BITO! : i 
8982 000001 RDATAO= B1T00 : 7 
8984 FFARR EERE EERE EERE EEE EEE EAE AEREEEEEKEEEREREREEEEEEE 
8985 : TCSR REGISTER BIT NAMES 
8986 FERRARA AE EEEE EEE EEE AEREEEEERERAREREREREEEEEEAERA EERE 
8987 100000 PBAUD3= BIT15 2 4 
8988 0000 PBAUD2= BIT14 + ‘\ PROGRAMMABLE BAUD 
£989 020000 PBAUD1= BIT13 + 7 RATE BITS 
8990 010000 PBAUDO= BIT12 ®, 
8991 004000 PBAUDSET= BIT11 : ENABLE SETTING OF 
8992 : PROGRAMMABLE BAUDE RATE 
8993 ; UNUSED BIT10 
8994 : UNUSED BIT09 
8995 : UNUSED B1T08 
8996 000200 KMITRDY= BITO7 : TRANSMITTER READY 
8997 000100 XMITIE= BIT06 : TRANSMITTER INTERRUPT ENABLE 
8998 ; UNUSED B1T05 
: UNUSED B1T04 
9000 > UNUSED BITO3 
9001 000004 MAINT= B1T02 : MAINTENANCE SET BIT 
9002 : UNUSED B1T01 
9003 000001 BREAK= B1T00 ; SEND BREAK (CONTINUOUS SPACE) 
9005 
9006 FFE AAA AAR REEEEEEEEAE ERE EEA EEEEEAAARAAEEEEEEEEREREEEEEEEEEE EEE 
9007 : TBUF REGISTER BIT NAMES 
9008 saa caaia agate a aca a ere ae 
9009 ; UNUSED BIT15 


rn es ee 


i 
‘ 
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ic NDVAA.P11 16=-DEC=82 15:1 
| 9011 
| 9012 
| 9013 
| 9014 
| 9015 
| 9016 
; 9017 
; 9018 
9019 00200 
9020 000100 
9021 00040 
9022 000020 
9023 000010 
9024 00004 
9025 000002 
9026 000001 
9027 
9028 
9029 
9030 
9031 
9032 00017 
9033 000020 
9034 000040 
9035 000100 
9036 002 
9037 
9038 
9039 
9040 007400 
9041 010000 
9042 020000 
9043 040000 
9044 
9045 
(1) 
(1) 000000 
(1) 
(1) 
(1) 
(1) 000174 
(1) 000174 000000 
$ 000176 000000 
(1) 000200 000137 001336 
9046 
(1) 
(2) 
(1) 
(1) 000204 
(1) 000046 
(1) 000046 012446 
(1) 000052 
(1) 000052 000000 
(1) 000204 
9047 001000 
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34 
: 


._ @ 
‘\ TRANSMITTER DATA BUFFER 


37 


—e 
“4 
> 
~ 
" 
fookectosTocTosToolestosloctoclectesleste sles] 


R 


TDATAO= 


FERRARA EERE ERE EEE EEE RARER EERE AREER EEEKEEEREEAEEREEEERE ERE 


; FLAG BITS TO BE USE OR CLEARED IN $USWR. 


DATA _= 17 
PARITY = 20 
EVENODD = 40 
COMSPD = 100 
PBR = 200 


; BAUDE MUST BE ON THE UPPER 
a ats BOUNDRY 1 eae 7-4 BITS 


FERRARA EAA RA EERE TERETE EATER ARARA REAR AEAEAAEAREREEAE EERE EEE 


*§BTTL TRAP CATCHER 


=0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 yi + **",+2,HALT" 
7*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERR 
;*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


-=17 
DISPREG: .WORD 0 3:SOFTWARE DISPLAY REGISTER 
SWREG: _.WORD 0 3-SOFTWARE SWITCH REGISTER 


.SBTTL STARTING ADDRESS(ES) 
JMP TART ;;JUMP TO STARTING ADDRESS OF PROGRAM 
~SBTTL ACT11 HOOKS 


FRRERARAAARREREEEE EEE TERA EAA EAE REAAEAEEAAAREEEEEE EERE REREEE EERE 


:hooks se BY ACT11 


SvPC=. SAVE PC 
SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
"WORD 0 ;32)S8T LOC. 532 TO ZERO 

* =$SVPC +: RESTORE 


-=1000 
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‘CNDVAA.P11 ~~: 16=DEC=82 15:12 PARAMETER BLOCK SEQ 0024 
9048 .SBTTL APT PARAMETER BLOCK 
(2) SERRA AAAAE EAE EE AE AEEEERERERE EERE REAEAEEEAEEEEREKEREARE ENA ES 
(1) SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
(2) Pali lla ha haha lalatade, PASAAARAASALAAALALALL ALAA ALE EASA REAR RRR RRA A RR ASD SD SD 
(1) 001000 $X=.  ;SAVE CURRENT LOCATION 
(1) 000024 524 33SET POWER FAIL TO POINT TO START OF PROGRAM 
(1) 000024 000200 200, FOR APT START U 
a) 000044 =44 _ Z:POINT TO APT INDIRECT ADDRESS PNTR. 
(1) 000044 001000 SAPTHDR i POINT TO APT HEADER BLOCK 
(1) 001000 =.$X  3;RESET LOCATION COUNTER 
(2) [eeReReeeeeeeeeeeeteneerereetereerekterereeeeeeeeereerereeeeees 
a) :SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
1) INTERFACE SPEC. 
(1) 001000 SAPTHD: 
(1) 001000 000000 $HIBTS: .WORD 0 TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
(1) 001002 001174 $MBADR: .WORD $MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
(1) 001004 000005 $TSTM: WORD 5 ;;RUN TIM OF LONGEST TEST 
(1) 001006 000055 $PASTM: :WORD 45. GRUN TIME IN, SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
(1) 001010 000036 SUNITM: .WORD 30. DITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
(1) 001012 000030 "WORD SETEND=SHAIL72 z;LENGTH MAILBOX=ETABLE (WORDS) 


M2 
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9049 .SBTTL COMMON TAGS 
(2) FERRARA REAR EERE ERE RE EE ERE EEE AREA REE RARREREREEREEEREREEEERENEEE 
(1) SSTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
(1) 3*USED IN THE PROGRAM. 
| @ 001100 .=1100 
1) 001100 SCMTAG: ;:START OF COMMON TAGS 
1) 001100 000000 WORD 0 
| ) 001102 ~~ 000 $TSTNM: .BYTE 0 3:CONTAINS THE TEST NUMBER 
(1) 001103 SERFLG: .BYTE 0 :CONTAINS ERROR FLAG 
| 1) 001104 000000 $ICNT: .WORD 0 CONTAINS SUBTEST ITERATION COUNT 
/ (1) 001106 000000 $LPADR: .WORD 0 CONTAINS SCOPE LOOP 
| 1) 001110 000000 $LPERR: .WORD 0 :CONTAINS SCOPE RETURN FOR ERRORS 
' 1) 001112 000000 SERTTL: .WORD 0 :CONTAINS TOTAL ERRORS DETECTED 
| G1) 001114 SITEMB: .BYTE 0 :CONTAINS ITEM CONTROL BYTE 
(001115 SERMAX: .BYTE 1 :ECONTAINS MAX. ERRORS PER TEST 
| (1) 001116 000000 SERRPC: .WORD 0 ::CONTAINS BC OF LAST ERROR, INSTRUCTION 
(1) 001120 000000 SGDADR: .WORD 0 :CONTAINS ADDRESS OF ‘GOOD’ DAT 
(1) 001122 000000 SBDADR: .WORD 0 {CONTAINS ADDRESS OF | ‘BAD DATA. 
| 1) 001124 000000 $GDDAT: .WORD 0 33CONTAINS ‘GOOD* DATA 
(1) 001125 000000 SBDDAT: .W 0 CONTAINS "BAD’ DATA 
(1) 001130 000000 . 0 SERESERVED=-NOT TO BE USED 
(1) 001132 000000 ~WORD 0 
(1) 001134 000 $AUTOB: .BYTE 0 ; AUTOMATIC MODE INDICATOR 
(1) 001135 000 $INTAG: .BYTE 0 :;INTERRUPT MODE INDICATOR 
(1) 001136 000000 ~WORD 0 
(1) 001140 177570 SWR: WORD DSWR s:ADDRESS OF SWITCH REGISTER 
(1) 001142 177570 DISPLAY: .WORD DDISP Z3ADDRESS OF DISPLAY REGISTER 
(1) 001144 177560 $TkS: 177560 :TTY KBD STATUS 
(1) 001146 177562 $TKB: 177562 TITTY KBD BUFFER 
(1) 001150 177564 $TPS: 177564 3:TTY PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 $TPB: 177566 3:TTY PRINTER BUFFER REG. ADDRESS 
(1) 001154 000 $NULL: .BYTE 0 3: CONTAINS NULL CHARACTER FOR FILLS 
(1) 001155 002 SFILLS: .BYTE 2 
(1) ;CONTAINS # OF FILLER CHARACTERS REQUIRED 
(1) 001156 012 sriuic: .evTe 13 INSERT FILL CHARS. AFTER A “LINE FEED" 
(1) 001157 000 $TPFLG: .BYTE 0 $y TERMINAL AVAILABLE” FLAG (BIT<07>=0=VES) 
(1) 001160 000000 STIMES: 0 33MAX. NUMBER OF ITERATION 
(1) 001162 000000 SESCAPE :0 i SESCAPE SON GERROR ADDRESS 
(1) 001164 177607 000377 SEELL: .ASCIZ ¢2072¢377><377> SICODE F R BELL 
(1) 001170 = 077 $QUES: ASCII : QUESTION 
(1) 001171 015 SCRLF: “ASCII <15> {CARRIAGE RETURN 
(1) 001172 000012 $LF:  .ASCIZ <12> E FEED 
(2) TTITITTITTI LILLIE LLL LILLE LLL ELLE LLL LLL 
(2) “SBTTL APT MAILBOX-ETABLE 
(3) SEERA AREA AAEAAEAEEE REESE EEE A EERE RAE AAEEE EEE AE EREREEREEERAEERES 
(2) : 
(2) 001174 $MAIL: ;APT MAILBOX 
(2) 001174 000000 SMSGTY: .WORD AMSGTY ::MESSAGE TYPE CODE 
(2) 001176 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
(2) 001200 000000 STESTN: “WORD ATESTN. 7; TEST NUMBER 
(2) 001202 000000 $PASS: WORD APASS ;;PASS COUNT 
(2) 001204 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
(2) 001206 000000 $UNIT: WORD AUNIT 31/0 UNIT NUMBER 


! 
} 
| 
| 
} 
| 
' 
| 
} 
i 
| 
| 
| 
j 
' 
| 
| 
| 
| 
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‘CNDVAA.P11 = 16=DEC=82 15:12 APT MAILBOX~E TABLE SEQ 0026 
(2) 001210 000000 $MSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 
(2) 001212 000000 SMSGLG: .WORD AMSGLG ;;MESSAGE LENGT 
(2) 001214 SETABLE : APT ENVIRONMENT TABLE 
(2) 001214 000 SENV: BYTE AENV. ENVIRONMENT BYTE 
(2) 001215 000 SENVM: .BYTE | AENVM 
(2) ;;ENVIRONMENT MODE BITS 
(2) 001216 000000 $SWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
(2) 001220 071110 SUSWR: .WORD AUSWR ;;USER SWITCHES 
(2) 001222 000000 SCPUOP: WORD ACPUOP ;;CPU TYPE, OPTIONS 
(2) z# BITS 15-112cPU T 
(2) :* 1706201 +11/05202,11/20=03,11/40=06,11/45=05 
(2) i* 11770=06. PDQ=07,0=10 
(2) ;* BIT 10=REAL TIME CLOCK 
(2) :* BIT 9=FLOATING POINT PROCESSOR 
(2) : BIT 8=MEMORY MANAGEMENT 
(2) 001224 000 $MAMS1: .BYTE  AMAMS1 ::HIGH ADDRESS M.S. BYTE 
(2) 001225 000 $MTYP1: .BYTE AMTYP1 ;:MEM. TYPE,BLKA1 
(2) ;* MEM.TYPE BYTE == (HIGH BYTE) 
(2) i* 900 NSEC CORE= 
(2) ;* 300 NSEC BIPOLAR=002 
(2) : 500 NSEC MOS= 
(2) 001226 000000 $MADR1: .WORD AMADR1 :7HIGH ADDRESS -BLK#1 ihn 
(2) st MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘‘TYPE’* ABOVE 
(2) 001230 000 $MAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS M.S. BYTE 
(2) 001231 000 $MTYP2: .BYTE AMTYP2 ;;:MEM.TYPE,BLK 
(2) 001232 000000 SMADR2: WORD —AMADR2 =; MEM. LAST ADDRESS, -BLKAZ 
(2) 001234 000 SMAMS3: .BYTE AMAMSS ;;HIGH ADDRESS,M.S.BYTE 
(2) 001235 000 SMTYP3: .BYTE AMTYPS ;;MEM. TYPESBLEA3" 
(2) 001236 000000 $MADR3: .WORD AMADR3 ;:MEM.LAST ADDRESS,BLK#3 
(2) 001240 000 SMAMSG: .BYTE AMAMS4 ; HIGH ADDRESS M.S. -BYTE 
(2) 001241 000 SMTYP4: .BYTE AMTYP4 Hh TYPE ,BLK&#4 
(2) 001242 000000 SMADRG: .WORD AMADR4 ;;MEM.LAST ADDRESS, BLK#4 
(2) 001244 000300 SVECT1: .WORD AVECT1 ::INTERRUPT VECTOR#1,BUS PRIORITY#1 
(2) 001246 000000 $VECT2: .WORD AVECT2 ;;INTERRUPT VECTOR#2BUS PRIORITY#2 
(2) 001250 175610 $BASE: .WORD _ABASE 
(2) j7BASE ADDRESS OF EQUIPMENT UNDER TEST 
(2) 001252 000001 SDEVM: WORD ADEVM ;;DEVICE MAP 
(2) 001254 SE TEND: 
(2) ~MEXIT 


B 3 
“MAINDEC=272=CNDVA= A macys 30(1046) 16=DEC-82 15:13 PAGE 156-4 
‘CNDVAA.P11 16=DEC=82 1 ERROR POINTER TABLE SEQ 0027 


ay .SBTTL ERROR POINTER TABLE 
(1) :*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
(1) S*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
| S*LOCATION $17EMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE Is PERTINENT. 
| @ :*NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERR 
1) : *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS PEPLAINED AS FOLLOWS: 
(1) ;* EM ::POINTS TO THE ERROR MESSAGE 
(1) t* DH ::POINTS TO THE DATA HEADER 
(1) jt DT ::POINTS TO THE DATA 
| (1) i* DF ::POINTS TO THE DATA FORMAT 
(1) 
(1) 001254 SERRTB: 
9050 33 L DATA 
| 9051 001254 175610 DLADD: DLADDR 
9052 001256 000300 DLVEC: 
9053 001260 175610 RCSR: DLADDR + O 
9054 001262 175612 RBUF: DLADDR + 2 
9055 001264 1756 TCSR: DLADDR + 4 
9056 001266 175615 TCSRHI: DLADDR + 5 
9057 001270 175616 TBUF: DLADDR + 6 
9058 001272 000000 I: 0 
9059 001274 000020 .BLKW 20 ;FOR RS STACK 
9060 001334 000000 RSSTACK: “WORD 0 
9062 001336 START: 
(1) ~SBTTL INITIALIZE THE COMMON TAGS 
(1) ::CLEAR THE COMMON TAGS ($CMTAG) AREA 
(1) 001336 012706 001100 MOV #SCMTAG,RO z:FIRST LOCATION TO BE CLEARED 
(1) 001342 005026 CLR (R6)+ *:CLEAR MEMORY LOCATION 
(1) 001344 022706 001140 CMP #SWR,R6 ;;DONE? 
(1) 001350 001374 BNE .-6 LOOP BACK IF NO 
(1) 001352 012706 001100 #STACK,SP +E TUP THE STACK POINTER 
(1) ss INITIALIZE A FEW VECTORS 
(1) 001356 012737 014370 000020 #$SCOPE ,a# LOTVEC #107 VECTOR FOR SCOPE ROUTINE 
(1) 001364 012737 000300 000022 MOV #PR6,a#IOTVEC+2 3: 
(1) 001372 012737 014170 000030 MOV #SERROR, a#EMTVEC EMT VECTOR FOR ERROR ROUTINE 
(1) 001400 012737 000300 000032 acaeme MOV #PR6,QMEMTVEC+2 ::LEVEL 6 
(1) 001406 012737 015322 000034 MOV #STRAP ,a#TRAPVEC ;: TRAP VECTOR FOR TRAP CALLS 
(1) 1414 012737 000300 000036 MOV #PR6,A#TRAPVEC+2;LEVEL 6 
(1) 001422 012737 012502 000024 MOV #SPWRON, a#PWRVEC ; ;POWER FAILURE VECTOR 
(1) 001430 012737 000300 000026 MOV #PR6 ,a#PWRVEC+2 :sLEVEL 6 
(1) 1436 016767 010752 010742 MOV SENDCT,SEOPCT ::SETUP END-OF-PROGRAM COUNTER 
(1) 001444 005067 177510 CLR STIMES SSINITIALIZE NUMBER OF ITERATIONS 
(1) 001450 005067 177506 CLR SESCAPE [CLEAR THE ESCAPE ON ERROR ADDRESS 
(1) 001454 112767 000001 177433 MOVB #1, $ERMAX TALLOW ONE ERROR PER TEST 
(1) 001462 012767 001462 177416 MOV #. SLPADR :: INITIALIZE THE LOOP ADDRESS FOR SCOPE 
(1) 001470 012767 001470 177412 MOV “$SLPERR > SETUP THE ofRROR LOOP ADDRESS 
(2) :2S12E FOR A HARDUARE SulTcH REGISTER. IF NOT FOUND OR IT IS 
(2) Z;EQUAL TO A ‘=1'', SETUP FOR A SOFTWARE SWITCH REGISTER. 
(2) 001476 013746 000004 move ae ERRVEC, ep P) ;:;SAVE ERROR VECTOR 
(2) 001502 012737 001536 000004 MOV #64$, HE RRVEC 33SET UP ERROR VECTOR 
(2) 001510 012767 177570 177422 MOV #DSWR,SWR :;SETUP FOR A HARDWARE SWICH REGISTER 
(2) 001516 012767 177570 177416 MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 


(a ee — re ee ee 


‘MAINDEC=27=CNDVA~A 
CNDVAA.P11 16=DEC-82 


7” 
Nm 
~~ 


022777 
001012 


wr 


paren ax 
=] 
So 
[=] 
o 
oO 
im 


sees seesse Ss 


00 012767 
001606 


- Pelalatatatatatatatatatatate 
NONMINMNIN —fPornofnonofponongory 


eh hh bd et th tit 
— 


005227 
51 


ES ee 


000403 
112767 
000422 


RAR AR ARR RR ARR AR RRA ARA 
= = = MONINPINININININININID 2 oo 


~ 

ae 

~ 
N“ 


012767 
9069 


(3) 001744 004767 


001750 


(4) 001750 012167 


011167 
016701 


016767 


016767 


(7) 002000 062767 


mecyt! 
15:12 


177777 


001544 
000176 
000174 
000004 


177412 
000200 


001216 


177777 
012446 
001672 
000042 
177352 
177266 


000001 


000001 


010250 


177300 


177276 
177270 


177264 


177256 
000002 


30(1046) 


177406 


177366 
177362 


177417 


177332 


000042 


000001 


000176 


177244 


010404 


177266 


177262 
177254 


16=DEC-82 


64$: 


Cc 3 
15:13 PAGE 156-5 


INITIALIZE THE COMMON TAGS 
CMP #-1 ,aSWR zz TRY TO REFERENCE HARDWARE SWR 
BNE 66$ ssBRANCH IF NO TIMEOUT TRAP OCCURRED 
33;AND THE HARDWARE SWR IS NOT = -1 
BR 65$ ;sBRANCH IF NO TIMEOUT 
4] #65$, (SP) 3;SET UP FOR TRAP RETURN 


65$: 
66$: 


67$: 
-SBTTL 
sc TYPE 


-SBTTL 


70$: 
71$: 


37698: 
68s: 


LOOP: 


MOV #SWREG, SWR 
MOV #DISPREG,DISPL 
MOV (SP)+ aERRVEC 


Pe baa TO SOFTWARE SWR 
” s ;RESTORE ERROR VECTOR 


CLR SPASS 3;CLEAR PASS COUNT 
BITB #APTSIZE,SENVM ;;TEST USER SIZE UNDER APT 
BEQ 67$ ;sYES,USE NON-APT SWITCH 


MOV #SSWREG, SWR 33NO,USE APT SWITCH REGISTER 
TYPE PROGRAM NAME 
THE NAME OF THE PROGRAM IF ringt ee 
INC #~1 zsFIRST TIME? 
BNE 68S BRANCH IF NO 
CMP #SENDAD ,a#42 33ACT=11? 
- 68$ 34 ee IF _YES 
YPE 269% YPE ASCIZ_ STRING 
Ger VALUE FOR SOFTWARE siiten REGISTER 
a#42 3;ARE WE RUNNING UNDER XXDP/ACT? 


BNE °0S Sy re IF Y 
CMPB SENV,#1 ARE WE RUNNING UNDER APT? 
BEQ 70$ ;;BRANCH IF YES 


E 
: SOFTWARE SWITCH REG SELECTED? 


CMP SWR ,#SWREG 

BNE 71$ ANCH N 

a 718 Z:GET SOFT-SWR SETTINGS 

MOVB #1,$AUTOB 3;SET AUTO-MODE INDICATOR 

BR 68$ ;GET OVER THE ASCIZ 

eASCIZ <CRLF>*ZZ- CNDVA=A’ DLV11-E OFFLINE TEST*<CRLF> 


LET INITFLAG := #1 
MOV #1, INITFLAG 


CALL cYCLE 
JSR PC,CYCLE 


: NO ARGUMENTS--ADDRS => NEXT ADDRESS 
: ADDRS+2 => kad VECTOR 
:GET UNIT DRESS 
LET DLADD : (ADRS) ® 


3;GET UNIT VECTOR 
LET DLVEC := (ADRS) 


LET ADRS := DLADD 


sRCSR = DLADD + 0 
LET RCSR := DLADD 


LET RBUF := DLADD + #2 


MOV (ADRS) +,DLADD 


MOV (ADRS) ,DLVEC 
MOV DLADD, ADRS 


MOV DLADD,RCSR 


MOV DLADD , RBUF 
ADD #2, RBUF 


SEQ 0028 


M 
iC 


--—-— - —— a - — 


dD 3 
MAINDEC=ZZ7=CNDVA-A MACY11 30(1046) 16=DEC-82 15:13 PAGE 156-6 


| CNDVAA.P11 16=DEC=82 15:12 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0029 
' 9080 002006 LET TCSR := DLADD + #4 
/ (4) = 002006 016767 177242 177250 MOV DLADD,TCSR 
, (7) 002014 062767 000004 177242 ADD #4,TCSR 
9081 002022 LET TCSRHI := DLADD + #5 
(4) 002022 016767 177226 177236 MOV DLADD, TCSRHI 
(7) 002030 062767 000005 177230 ADD #5, TCSRHI 
9082 002036 LET TBUF := DLADD + #6 
(4) 002036 016767 177212 177224 MOV DLADD , TBUF 
(7) 002044 062767 000006 177216 ADD #6, TBUF 
9083 002052 LET R5 z= MRSSTACK 
(4) 002052 012705 001334 MOV #RSSTACK,RS 
9088 ; sBRESET 


| 
| 
i 
| 
|“) 002056 000005 RESET 
| 
| 
| 
| 


[a a 


re 


MAINDEC=27=CNDVA=A MACY11 30(1046) 16=DEC=82 15:13 PAGE 157 
CNDVAA.P11  16=DEC=82 15:12 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0030 
9100 Fp RARE AEA AEA ERA AAA E EEE EERE EEE EEEEEAAAAEEEEEEEEAREEREREEKEEEEE 
(3) T*TEST 1 ADDRESSABILITY 
(4) ie THIS TEST VERIFIES THAT THE ADDRESS AS PLACED IN 
(4) te THE HARDWARE P=TABLE TO BE CORRECT AND THE DLV11-E RESPONDS 
(4) it TO THAT ADDRESS SPACE 
(3) ° 2 REAAAAAEAARAERAAAAAAAEEEAEEEAAEAAERAAERAARAAEEAAEEAEAREEEREREEKREREE 
(2) 002060 000004 TST1: SCOPE 
(1) 002062 012767 000002 177070 MOV #2,$TIMES 3:00 2 ITERATIONS 
(2) 002070 012767 000001 177102 MOV #1,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
9105 002076 LET ADRS := DLADD 
(4) 002076 016701 177152 MOV DLADD, ADRS 
9106 ; SET UP INTERRUPT 
9107 002102 SETVEC #ILLMEM,#INTSRV,4PRO 
(5) 002102 010146 MOV R1,=(SP) 
(5) 002104 012701 000004 MOV #ILLMEM,R1 
(5) 002110 012721 012026 MOV #INTSRV,(R1)+ 
(5) 002114 012711 000300 MOV #PR6, (Ri) 
(5) 002120 012601 MOV (SP)+,R1 
9108 002122 LET I := #0 
(4) 002122 005067 177144 CLR I 
9109 002126 REPEAT 
(3) 002126 $1: 
9110 002126 BGNSUB 
(5) 002126 012767 002134 176754 MOV #64$,$LPERR 
9111 sCLEAR FLAG 
9112 002134 LET INTFLAG := 40 
94) 002134 005067 007674 CLR INTFLAG 
9114 :READ FLAG 
9115 002140 005711 TST @ADRS 
9116 002142 IF INTFLAG NE #0 THEN 
(6) 002142 005767 007666 TST INTFLAG 
(9) 002146 001401 BEQ $2 
9117 ; FATAL ERROR 
9118 002150 ERRDF 1,,NODL 
(1) 002150 104001 ERROR 1 
9119 002152 ENDIF 
(4) 002152 $2: 
9120 002152 : ENDSUB 
9121 002152 LET JI:=I1 + #2 
(7) 002152 062767 000002 177112 ADD #2,1 
9122 002160 LET ADRS := DLADD + | 
(4) 002160 016701 177070 MOV DLADD, ADRS 
(7) 002164 066701 177102 ADD 1, ADRS 
9123 002170 UNTIL I EQ #8. 
(3) 002170 026727 177076 000010 CMP 1,#8. 
(6) 002176 001353 BNE $i 
9124 002200 CLRVEC ILLMEM 
(3) 002200 010146 MOV R1,-(SP) :zPUSH R1 ON STACK 
(3) 002202 010246 MOV R2,-(SP) >:PUSH R2 ON STACK 
(5) 002206 012701 000004 MOV #ILLMEM,R1 
(5) 002210 010102 MOV R1,R2 
(8) 002212 062702 000002 ADD #2,R2 
(5) 002216 010221 MOV R2.(R1)+ 


A ES SSS SSS i 


Tak ett tee 


|CNDVAA.P11 


002220 005011 
092222 012602 
002224 012601 
002226 


MACY11 30(1046) 
16=DEC=82 15:12 


ae “82 15:13 PAGE 15761 


ADDRESSABILITY 
CLR (R1) 
MOV (SP)+,R2 33POP STACK INTO R2 
MOV (SP)+,R1 33POP STACK INTO R1 
sEND OF TEST 
NDTST 


J RRORAEAE REAR EE EEE ETE RATER AAEHERAAEEAEREEEEEEREEREAEREEEEE 


i* THE FOLLOWING 8 TESTS TEST ALL ‘READ WRITE’ BITS 


FERRARA EEEE EEE EERE EEE EEE EEARERAEREERERHEREEEAEEER ERED 


SEQ 0031 


MAINDEC=Z77=CNDVA=A 
CNDVAA.P11 


002226 


Ve-DEC=82 1 


000004 
012767 
012767 
032767 
001004 
012767 


000452 


012767 


032777 
001401 


104002 


012767 
052777 


032777 
001001 


104003 


012767 


042777 


CY11 30(1046) 


12 


000010 
000002 


010000 


000001 


002272 


000001 


002312 
000001 


000001 


002340 


000001 


176722 
176734 


176746 


176676 


176616 


176764 


176576 
176744 


176736 


176550 


176716 


G 
te: | 15:13 PAGE 158 


ADDRESSABILITY 
FERRARA REEAAEEEEE EERE EERE EEAEEEEHEREAREEEREEEEAEEEREEEEE 
TSTEST 2 BREAK = TCSRO SET, CLEAR, RESET 
is NOTE: THE cH) JUMPER MUST BE REMOVED FOR THIS 
TEST TO FUNCTION PROPERLY 
Pet ENO. Bn NL Riles to: CO RO ERED 
fies SCOPE 
MOV #10,STIMES ::D0 10 ITERATIONS 
MOV #2,$TESTN °:SET TEST NUMBER IN APT MAIL BOX 
IF #BRK NOTSETIN $USWR THEN 
BIT #BRK, SUSWR 
BNE $3 
EXIT TST 
MOV #1,$TIMES 
BR TST3 szzEXIT THIS TEST 
ENDIF 
$3: 
; SEE IF IT IS CLEAR 
BGNSUB 
MOV #64$,SLPERR 
IF WBREAK SETIN aTCSR THEN 
BIT WBREAK,aTCSR 
BEQ $4 
BREAK DID NOT RESET IN TCSR 
ERRHRD 2, ,DIDNOT 
ERROR 2 
ENDIF 
$4: 
ENDSUB 
: TRY TO SET BREAK BIT 
BGNSUB 
MOV #64$,SLPERR 
LET  aTCSR := @TCSR SET.BY #BREAK 
BIS #BREAK ,aTCSR 
: STUCK TO 0 
IF #BREAK NOTSETIN @TCSR THEN 
BIT #BREAK ,aTCSR 
BNE $5 
BREAK DID NOT set IN TCSR 
ERRHRD 3, ,DIDNOT 
ERROR 3 
ENDIF 
$5: 
ENDSUB 
: TRY TO CLEAR A SET BIT 
BGNSUB 
MOV #64$,S$LPERR 
LET  aTCSR := @TCSR CLR.BY #BREAK 
BIC #BREAK,aTCSR 
, : SHOULD HAVE CLEARED 


SEQ 0032 


iM 
iC 


Farrar 


MAINDEC=Z2=CNDVA=A MACY11 30(1046) 


.CNDVAA.P11 16=DEC=82 15:12 


00234 
(6) 002346 032777 000001 176710 
(9) 002354 001401 


eid Fe 104004 


5) 002360 012767 002366 176522 
002366 052777 000001 176670 
(1) posers 000005 
(6) 002376 032777 000001 176660 
(9) 002404 001401 


104005 


16-DEC-82 15:13 PAGE 15801 
T2 BREAK = TCSRO SET, CLEAR, RESET SEQ 0033 


$6: 


$7: 


BIT 
BEQ 


ERROR 


MOV 
BIS 
RESET 
BIT 
BEQ 


ERROR 


TF #BREAK SETIN @TCSR THEN 


#BREAK,ATCSR 
BREAK DID NOT CLEAR IN TCSR 
‘ ERRHRD 4, ,DIDNOT 
ENDIF 
ENDSUB 
: NOW SEE IF RESET CLEARS IT 
BGNSUB 
#64$,SLPERR 
LET  a@TCSR := @TCSR SET.BY #BREAK 
#BREAK,aTCSR 
ISSUE BUS RESET 
BRESET 
IF WBREAK SETIN aTCSR THEN 
#BREAK ,ATCSR 
BREAK DID NOT RESET IN TCSR 
: ERRHRD 5, ,DIDNOT 
ENDIF 
ENDSUB 


ENDTST 


SEERA AERA AERA EEE REE AEE ERE EEA REEAEEERAEEKERA ARERR EREEEE EEE 


MAINDEC=Z2-CNDVA=A MACY11 30(1046) 16-DEC-82 15:13 PAGE 159 
CNDVAA.P11 16=DEC=82 15:12 T2 


(4) 002522 $12: 
9236 002522 ENDSUB 


BREAK = TCSRO SET, CLEAR, RESET SEQ 0034 
9201 
9202 FURR eae A REAR E EERE EEE EEE EEEREREEREREEREEREREERE HEE KETE EE eS 
(3) s*TEST 3 MAINT = TCSR2 SET, CLEAR, RESET 
(3) 5 REAR EERE REE ATTA EEE TEE EEE EAEEEEAEETREHAERERE TREK E Hee eee ee 
(2) 002410 000004 TST3: SCOPE 
(1) 002412 012767 000010 176540 MOV #10,STIMES . ::D0_10 ITERATIONS 
mod) 002420 012767 000003 176552 MOV =: #3, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
9208 ; SEE IF IT IS CLEAR 
9209 002426 BGNSUB 
93%) 002426 012767 002434 176454 MOV #64$,S$LPERR 
|; 9211 002434 IF #MAINT SETIN @TCSR THEN 
| (6) 002434 032777 000004 176622 BIT #MAINT ,ATCSR 
(9) 002442 001401 BEQ $10 
9212 ; MAINT DID NOT RESET IN TCSR 
9213 002444 ’ ERRHRD 6, ,DIDNOT 
(1) 002444 104006 ERROR 6 
9214 002446 ENDIF 
(4) 002446 $10: 
oSi2 002446 ENDSUB 
9217 ; TRY TO SET MAINT BIT 
9218 002446 BGNSUB 
(5) 002446 012767 002454 176434 MOV #64$,,SLPERR 
9219 002454 LET @ITCSR := @TCSR SET.BY #MAINT 
(7) 002454 052777 000004 176602 BIS #MAINT,@TCSR 
9220 3 STUCK TO 0 
9221 002462 IF #MAINT NOTSETIN @TCSR THEN 
(6) 002462 032777 000004 176574 BIT #MAINT ,ATCSR 
(9) 002470 001001 BNE $11 
9222 : MAINT _DID NOT SET iN TCSR 
9223 002472 ERRHRD 7,,DIDNOT 
(1) 002472 104007 ERROR 7 
9224 002474 ENDIF 
(4) 002474 $11: 
544 002474 ENDSUB 
9227 ; TRY TO CLEAR A SET BIT 
9228 002474 BGNSUB 
9539 002474 012767 002502 176406 MOV #64$,SLPERR 
9230 002502 LET @TCSR := @TCSR CLR.BY #MAINT 
(7) 002502 042777 000004 176554 BIC #MAINT ,ATCSR 
9231 ; SHOULD HAVE CLEARED 
9232 002510 IF #MAINT SETIN @TCSR THEN 
(6) 002510 032777 000004 176546 BIT #MAINT ATCSR 
(9) 002516 001401 BEQ $12 
9233 ~. ; MAINT DID NOT CLEAR INTCSR 
9234 002520 ERRHRD 10, ,DIDNOT 
(1) 002520 104010 ERROR 10 
9235 002522 ENDIF 


r- 


'MAINDEC=72=CNDVA=A 
‘CNDVAA.PT1 


ae 


MACY11 30(1046) 
16=DEC=82 15:12 


2 
38 012767 002530 176360 


0 052777 000004 176526 


000005 


032777 000004 176516 
001401 


104011 


J 
16=DEC-82 15:13 PAGE 159-1 
13 SET, CLEAR, RESET 


$13: 


MAINT = 


MOV 
BIS 
RESET 
BIT 
BEQ 


ERROR 


TCSR 


3; NOW SEE IF RESET CLEARS IT 
BGNSUB 


#64$ ,SLPERR 


#MAINT ATCSR 


#MAINT,@TCSR ° 
$13 


11 


LET @TCSR := @TCSR SET.BY #MAINT 


ISSUE BUS RESET 
BRESET 


IF #MAINT SETIN @TCSR THEN 
MAINT DID NOT RESET IN TCSR 
ERRHRD 11, ,.DIDNOT 
ENDIF 


ENDSUB 
ENDTST 


FERRARA ERE EERE EE ERE TERE EEE EE EAE EEEREEEREREREEEEEEHEE 


SEQ 0035 


» 
Cl 


MAINDEC=22=CNDVA=A 
CMUAA PAT 1GeDEC=82 1 
9259 
9560 
i (3) 
a) 
| «> 002552 000004 
7) 002554 012767 
| gg) 002562 012767 
| 
| 9266 902570 012746 
1) 002574 019746 
|) 88585 Sosode 
| C1) 002602 
9271 
9576 
9277 002602 
(5) 002602 012767 
9278 
9579 002610 
(6) 002610 032777 
(9) 002616 001401 
9280 
9281 00262 
(1) 002620 104012 
9282 00262 
(4) 002622 
9283 002622 
9284 
9585 
9286 002622 
(5) 002622 012767 
9287 002630 
(7) 002630 052777 
9288 
9589 002636 
(6) 002636 032777 
(9) 002644 001001 
9291 002646 
(1) 002646 104013 
9292 002650 
(4) 002650 
9293 002650 
99 
9595 
9296 002650 
(5) 002650 012767 
9297 
9298 002656 
(7) 002656 042777 
9299 
9300 002664 
(6) 002664 032777 
(9) 002672 001401 
9301 


9302 002674 


cyi1 
12 


000010 
000004 


000300 
002602 


002610 


000100 


002630 
000100 


000100 


002656 


000100 


000100 


1 30(1046) 


176376 
176410 


176300 


176446 


176260 
176426 


176420 


176232 


176400 


176372 


16-DEC-82 15:13 PAGE 160 
T3 MAINT = TCSR2 SET, CLEAR, RESET 


FERRARA EAA AE REAR E EEE E EERE REEEEAEAAEREAERAERERE ERATE ES 


SATEST 4 


XMITIE = TCSR6 SET, CLEAR, RESET 


PITTTOCTTTTITTTTITTITITITITITITITITITTT TLL LLL LLL LLL 


i314: SCOPE 


MOV 


64$: 


$14: 


BIS 
BIT 


ERROR 
$15: 


MOV 
BIC 


BIT 
BEQ 


ere STIMES 33D0_10 ITERATIONS 


4, $TESTN :3SET TEST NUMBER IN Apr MAIL BOX 
USE PRIORITY OF 6 
#PR6,-(SP) ::PUT NEW PS ON STACK 
#64$,-(SP) *:PUT NEW PC ON STACK 


33;POP NEW PC AND PS 


; SEE IF IT IS CLEAR 
BGNSUB 


#65$,$LPERR 
IF #XMITIE SETIN @TCSR THEN 
#XMITIE ,ATCSR 
XMITIE DID NOT {RESET IN TCSR 
- ERRHRD 12, ,DIDNO 
ENDIF 
ENDSUB 
; TRY TO SET XMITIE BIT 
BGNSUB 
#64$,$LPERR 
LET  afCSR := aTCSR SET.BY #XMITIE 
#XMITIE,aTCSR 
: STuck TO 0 
IF #XMITIE NOTSETIN @TCSR THEN 
#XMITIE,@TCSR 
XMIT DID NOT RESET IN TCSR 
- ERRHRD 13,.DIDNO 
ENDIF 
ENDSUB 
; TRY TO CLEAR A SET BIT 
BGNSUB 
#64$,$LPERR 
LET  aTCSR := aTCSR CLR.BY #XMITIE 
#XMITIE ,aTCSR 
; SHOULD HAVE CLEARED 
IF #XMITIE SETIN a@TCSR THEN 
#XMITIE,ATCSR 


XMIT DID NOT CLEAR IN TCSR 
ERRHRD 14, ,DIDNOT 


SEQ 0036 


M 
Ch 


“MAINDEC=22=CNDVA-A MACY11 30(1046) 
-CNDVAA.P11 16=DEC=82 15:12 
| 
(1) 002674 104014 
| 9303 002676 
(4) 002676 
| 9304 267 
| 9305 
| 9306 
9307 002676 
mt] 002676 012767 002704 176204 
9309 002704 
m4] 002704 052777 000100 176352 
9311 00271 
(1) 002712 000005 
9312 002714 4 
(6) 002714 032777 000100 176342 
(9) 002722 001401 
9313 
9314 002724 
(1) 002724 104015 
9315 00272 
(4) 002726 
9316 002726 
9317 002726 
9318 
9319 
9320 
9325 


Dts 15:13 _PAGE 1601 


XMITIE = TCSR6 SET, CLEAR, RESET 


ENDIF 
ENDSUB 


; NOW SEE IF RESET CLEARS IT 
BGNSUB 


ERROR 14 

$16: 
MOV #64$ ,SLPERR 
BIS #XMITIE,aTCSR 
RESET 
BIT #XMITIE,aTCSR 
BEQ $17 
ERROR 15 

$17: 


LET @TCSR := @TCSR SET.BY #XMITIE 


3_ISSUE BUS RESET 
BRESET 


IF #XMITIE SETIN @TCSR THEN 
;_XMIT DID NOT RESET IN TCSR 
ERRHRD 15,,DIDNOT 

ENDIF 


ENDSUB 
ENDTST 


FPR AA REAR EE EA EE EAE EEE EERE EEE EREREREEEAEEEEAEEAEEREEE EEE REE EE 


SEQ 0037 


4 
Cl 


----- - «oe 


j 


| MAINDEC=Z2-CNDVA~A 
“CNDVAA.P11 


(4) 


ARR AR AR RRA 
M$—NMNWERERS 


oO 


RAWARWAA 
ERRRAGESSE 
Uw PWeRye vy @euewvowwvwvruuvuvuvv~y 


~ 
vw 


(7) 


003040 
003040 


Ve-DEC=82 1 


000004 


012767 
012767 
032767 
001004 
012767 
000441 


012767 
042777 


032777 
001401 


104016 


012767 
052777 
032777 
001001 


104017 


012767 


CY11 30(1046) 


2 


000010 
000005 
040000 


000001 


002772 
000002 


000002 


003020 


000002 
000002 


003046 


176222 
176234 
176246 


176176 


176116 
176260 


176252 


176070 


176232 
176224 


176042 


,]o-DEC~82 15:13 PAGE 161 

XMITIE = TCSR6 SET, CLEAR, RESET SEQ 0038 
a. ts. heen Ge, ee ee 
LATEST 5 DTR = RCSR1 


SET, CLEAR 
NOTE: RESET DOES NOT CLEAR THIS BIT 


ie 
7* WE CANNOT TEST FOR AN INITIAL CONDITION 
* AS THIS BIT IS UNDEF INED UPON POWER UP AND 
* INIT DOESN'T AFFECT IT. 
i THE (=FD) JUMPER MUST BE IN FOR THIS TEST TO WORK. 
ARR A RARE RARE EERE A EEE E EERE EEA EERE RE RERE EERE EHEERERRERERERREEEE 
TST5: SCOPE 
MOV #10,$TIMES 3:00 19 ITERATIONS 
MOV #5, $TESTN +:SET TEST NUMBER IN APT MAIL BOX 
IF #FRFD NOTSETIN $USWR THEN 
BIT #FRED, SUSWR 
BNE $20 
EXIT TST 
MOV #1,STIMES 
BR TST6 sssEX11 THIS TEST 
ENDIF 
$20: 
: TRY TO CLEAR DTR BIT 
BGNSUB 
MOV #64$,$LPERR 
LET  @RCSR := @RCSR CLR.BY #DTR 
BIC #DTR,@RCSR 
: STUCK TO 0 
IF #DTR SETIN @RCSR THEN 
BIT #DTR,ARCSR 
BEQ $21 
DTR DID NOT CLEAR IN RCSR 
ERRHRD 16, ,DIDNOT 
ERROR 16 
ENDIF 
$21: 
ENDSUB 
; TRY TO SET DIR 
BGNSUB 
MOV #64$,$LPERR 
LET  @RCSR := @RCSR SET.BY #DTR 
BIS #DTR,ARCSR 
IF #DTR NOTSETIN @RCSR THEN 
BIT #DTR,ARCSR 
BNE $22 
DTR DID NOT SET IN RCSR 
ERRHRD 17..DIDNOT 
ERROR 17 ss 
$22: 
ENDSUB 
: TRY TO CLEAR IT AGAIN 
BGNSUB 
MOV #64$,$LPERR 


a — —— 


| MAINDEC=27=CNDVA-A 


vt 30(1046) 16=DEC=82 15:13 PAGE 161" of 


‘CNDVAA.P11  16=DEC=82 15:12 15 DIR = RCSR1 ‘SET, CLEAR 
| 9365 003046 LET  @RCSR := @RCSR CLR.BY #DTR 
(7) 003046 042777 000002 176204 BIC #DTR,ARCSR 
| 9366 ; SHOULD HAVE CLEARED IT 
9367 003056 |. IF #DTR SETIN @RCSR THEN 
(6) 003054 032777 000002 176176 BIT #DTR,ARCSR 
(9) 003062 001401 BEQ $23 
9368 DTR DID NOT CLEAR IN RCSR 
9369 003064 ERRHRD 20,,DIDNO 
(1) 003064 104020 ERROR 20 
9370 003066 ENDIF 
(4) 003066 $23: 
9371 003066 ENDSUB 
9372 003066 ENDTST 
9373 
9374 
9375 
9380 Z 3 RRR RARE ERE AEE EERE EEE EEE EERE EEREREREEREEEEEEE 


— es — 0 ee 


SEQ 0039 


-- —-—--- + 
| 


| 
‘MAINDEC=Z7-CNDVA=A 
-CNDVAA.P11 


| 9385 
9 


~ ~~. ~ 
woo on 


9409 


RR~RR~KERR~R-~K 
Se QP PN Pm Mh aS 
WOw~ NOA~USwWwny oO 


4 
003124 
003124 
003124 
003132 


003172 
003172 
003172 


003200 
003200 


003206 


000004 


012767 
012767 
032767 
001004 


AT 44 14 
000452 


012767 


032777 
001401 


104021 


C12767 
052777 


032777 
001001 


104022 


012767 


042777 


MACY11 30(1046) 
16=-DEC-82 15:12 


000010 
000006 
040000 


000001 


003132 


000004 


003152 
000004 


000004 


003200 


000004 


176062 
176074 
176106 


176036 


175756 


176120 


175736 
176100 


176072 


175710 


176052 


16-DEC-82 15:13 PAGE 162° 
T5 DTR = RCSR1 SET, CLEAR 


cTEST 6 CREQSEND © RCSR2. SET. CLEAR, RESET. 


jSTEST 6 


REQSEND = RCSR2 CLEAR, RESET 
THIS TEST ASSUMES THAT sEnbER -(FR) IS IN 


» eneeneennceneecqeeqeeeeeececeesenenseenenqeccenqeegeeneceneqete 


SCOPE 


MOV 
MOV 


BIT 
BNE 


MOV 
BR 


$24: 


MOV 


BIT 
BEQ 


ERROR 
$25: 


MOV 
BIS 


BIT 
BNE 


ERROR 
$26: 


MOV 


BIC 


#10 STINES ::00 10 ITERATIONS 
#6,$TEST :SET TEST NUMBER IN APT MAIL BOX 

IF #FRED NOTSETIN $USWR THEN 
#FRED, SUSWR 
$24 

EXIT TST 

#1,$TIMES 
TSt7 


zszEXIT THIS TEST 
ENDIF 


; SEE IF IT IS CLEAR 
BGNSUB 


#64$ ,SLPERR 
IF #REQSEND SETIN @RCSR THEN 
 epanaataae 
REQSEND DID NOT RESET IN RCSR 
21 ERRHRD 21,,DIDNOT 
ENDIF 
ENDSUB 
; TRY TO SET REQSEND BIT 
BGNSUB 
#64$,$LPERR 
LET @RCSR := ARCSR SET.BY #REQSEND 
‘MREQSEND ,ARCSR ; truce 908 
IF PREOSEND NOTSETIN @RCSR THEN 
ee 
; REQSEND DID NOT SET IN RCSR 
22 ERRHRD 22,,DIDNOT 
ENDIF 
ENDSUB 
; TRY TO CLEAR A SET BIT 
BGNSUB 
#64$ ,SLPERR 
LET @RCSR := ARCSR CLR.BY #REQSEND 
#REQSEND ,ARCSR 


; SHOULD HAVE CLEARED 
IF #REQSEND SETIN @RCSR THEN 


SEQ 0040 


MAINDEC=27-CND 


/CNDVAA.P11 


(6) 003206 
(9) 003214 


9421 003216 
003216 

9422 003220 
003220 

9423 003220 
9426 003220 
(5) 003220 


9428 003226 
(7) 003226 


003234 
234 
9431 003236 
36 


9436 003250 


VA-A 
16=DEC-82 1 
032777 
001401 


104023 


012767 
052777 
000005 
032777 
001401 


104024 


macs 30(1046) 


000004 176044 


003226 175662 


000004 176024 


000004 176014 


C 
Daley 15:13 PAGE 162-1 


$27: 


$30: 


SET, CLEAR, RESET 


REQSEND DID NOT CLEAR IN RCSR 
ERRHRD 23,,DIDNOT 


ENDIF 


ENDSUB 


; NOW SEE IF RESET CLEARS IT 
BGNSUB 


REQSEND = RCSR2 
BIT #REQSEND ,ARCSR 
BEQ $27 
ERROR 23 
MOV #64$ ,SLPERR 
BIS #REQSEND ,ARCSR 
RESET 
BIT #REQSEND,@RCSR 
BEQ $30 
ERROR 24 


LET @RCSR := ARCSR SET.BY #REQSEND 


ISSUE BUS RESET 
BRESET 


IF #REQSEND SETIN @RCSR THEN 
3 REQSEND DID NOT RESET IN RCSR 
ERRHRD 24,,DIDNOT 

ENDIF 


ENDSUB 


ERR A AAA EAA AEA AE AE AEE EEE EERE RERERERAR ERA R AREA AAA EES 


SEQ 0041 


CN 


Dd 
/MAINDEC=27-CNDVA=A CY11 30(1046) 16-DEC-82 15:13 PAGE 163 


CNDVAA.P11 1e-DEC=82 1 "2 16 REQSEND = RCSR2 SET, CLEAR, RESET SEQ 0042 
944 
re] FERRARA AREER EERE EEE EEE EERE REE EREE EERE EERAEREEHEEE REE 
(3) TEST 7? SECXMIT = RCSR3 SET, CLEAR, RESET 
(3) UTTTISITITITIITI TTI TITTILiTi TLL ILI Ti iLiTi iit iti tii tt iti) gee 
cs} 003250 000004 1817: SCOPE 
(1) 003252 012767 000010 175700 MOV #10,$TIMES 2200 10_ITERATIONS 
(2) 003260 012767 000007 175712 MOV #7, STESTN SET TEST ee IN APT MAIL BOX 
9452 ; SEE IF IT IS CLEAR 
9453 003266 BGNSUB 
oe. 003266 012767 003274 175614 MOV #64$,,SLPERR 
9455 003274 IF #SECXMIT SETIN @RCSR THEN 
(6) 003274 032777 000010 175756 BIT #SECXMIT,@RCSR 
(9) 003302 691401 BEQ $31 
9456 SECXMIT DID NOT RESET IN RCSR 
9457 003304 ERRHRD 25, ,DIDNOT 
(1) 003304 104025 ERROR 25 
9458 003306 ENDIF 
(4) 003306 $31: 
a4 003306 ENDSUB 
9461 ; TRY TO SET SECXMIT BIT 
9462 003306 BGNSUB 
(5) 003306 012767 003314 175574 MOV #64$ ,SLPERR 
9463 003314 LET @RCSR := ARCSR SET.BY #SECXMIT 
(7) 003314 052777 000010 175736 BIS #SECXMIT,@RCSR 
9464 ; STUCK TO 0 
9465 003322 IF #SECXMIT NOTSETIN @RCSR THEN 
(6) 003322 032777 000010 175730 BIT #SECXMIT,@RCSR 
(9) 003330 001001 BNE $32 
9466 3; SECXMIT DID NOT SET IN RCSR 
9467 003332 ERRHRD 26,,DIDNOT 
(1) 003332 104026 ERROR 26 
9468 003334 ENDIF 
(4) 003334 $32: 
9469 003334 ENDSUB 
9470 
9471 ; TRY TO CLEAR A SET BIT 
9472 003334 BGNSUB 
9135 003334 012767 003342 175546 MOV #64$ ,SLPERR 
9474 003342 LET @RCSR := ARCSR CLR.BY #SECXMIT 
(7) 003342 042777 000010 175710 BIC #SECXMIT,@RCSR 
9475 ; SHOULD HAVE CLEARED 
9476 003350 IF #SECXMIT SETIN @RCSR THEN 
(6) 003350 032777 000010 175702 BIT #SECXMIT,@RCSR 
(9) 003356 001401 BEQ $33 
9477 SECXMIT DID NOT CLEAR IN RCSR 
9478 003360 ERRHRD 27, ,DIDNOT 
(1) 003360 104027 ERROR 27 
9479 003362 ENDIF 
(4) 003362 $33: 
9480 003362 ENDSUB 


94 
9482 003362 BGNSUB 


oz 


MAINDEC=Z7-CNDVA=A MACY11 30(1046) 


CNDVAA.P11 
(5) 003362 


16=DEC=82 15:12 


012767 003370 175520 


052777 000010 175662 
000005 
032777 000010 175652 
001401 


104030 


E 4 
16=DEC-82 15:13 PAGE 163-1 
17 SECXMIT = RCSR3 SET, CLEAR, RESET 


$34: 


MOV 


BIS 
RESET 
BIT 
BEQ 


ERROR 


#64$,,SLPERR 
3; NOW SEE IF RESET CLEARS IT 


LET @RCSR := ARCSR SET.BY #SECXMIT 


#SECXMIT,a@RCSR 
; ISSUE BUS RESET 
BRESET 
IF #SECXMIT SETIN @RCSR THEN 
#SECKMIT ARCSR 
: SECXMIT DID NOT RESET IN RCSR 
- ERRHRD 30, ,DIDNOT 
ENDIF 
ENDSUB 


ENDTST 


FERRARA RARE AEE EERE ERE E EEE EERE EEA EERE EERE EERE EEREEREREEEEEE 


SEQ 0043 


MAINDEC=ZZ2-CNDVA=A 
CNDVAA.P11 


9503 
9504 


~~ 
Ww 
~ 


oo woo ono ovo 
OAR UIA UTUTUIUIA UIA UIUT AR A UTI A UII AR RRA 
M—Nrw 


wooo 


Se] 
SWIOC EDV Che SMC CNACOSTwSCCe 


NNN 3 OQ oe 


oO 


9522 


003476 
003476 


003476 
003476 
003504 
003504 
003512 
003512 
003520 


003522 
003522 


003524 


16=DEC-82 


000004 
012767 
012767 
012767 


032777 
001401 


104031 


012767 
052777 


032777 
001001 


104032 


012767 


042777 


032777 
001401 


104033 


cy1 
:12 


000010 
000010 


003436 


000040 


003456 
000040 


000040 


003504 
000040 


000040 


1 30(1046) 


175614 


175432 
175574 


175566 


175404 


175546 


175540 


16-DEC=8 
17 


3*TEST 10 


TST10: 


$35: 


$36: 


$37: 


SCOPE 
MOV 
MOV 
MOV 


SIT 
BEQ 


ERROR 


MOV 
BIS 


BIT 
BNE 


ERROR 


F 
2 15:13 PAGE 164 
SECXMIT = RCSR3 


SET, CLEAR, RESET SEQ 0044 


5 RARE RAE EAA EEEEEEEE EE EEE AE EEEREREREREEEEAAERAEREEEREREAREEEEE 


DATAIE = RCSRS SET, CLEAR, RESET 


ff RARER AREER AE EEE EE EERE ETE EEEAEEERAEEARAEEEKEHHERAEEEKKREER EEE 


#10, $TIMES ::D0 10 ITERATIONS 
#10,$TESTN <ISET TEST NUMBER IN APT MAIL BOX 
; SEE IF IT IS CLEAR 
BGNSUB 
#64$,SLPERR 
IF #DATAIE SETIN @RCSR THEN 
#DATALE,ARCSR 
: DATAIE DID NOT RESET IN RCSR 
. ERRHRD 31,,DIDNOT 
ENDIF 
ENDSUB 
: TRY TO SET DATAIE BIT 
BGNSUB 
#64$,$LPERR 
LET | @RCSR := @RCSR SET.BY #DATAIE 
#DATAIE ,ARCSR 
: STUCK TO 0 
IF ° #DATAIE NOTSETIN @RCSR THEN 
#DATALE ARCS | 
: DATAIE DID NOT SET IN RCSR 
ERRHRD 32, ,DIDNOT 
ENDIF 
ENDSUB 
; TRY TO CLEAR A SET BIT 
BGNSUB 
#64$,$LPERR 
LET | @RCSR := @RCSR CLR.BY #DATAIE 
#DATALE,ARCSR 
: SHOULD HAVE CLEARED 
IF ° #DATAIE SETIN @RCSR THEN 
DATALE ,ARCSR 
; DATAIE DID NOT CLEAR IN RCSR 
- ERRHRD 33, ,DIDNOT 
ENDIF 
ENDSUB 


; NOW SEE IF RESET CLEARS IT 


‘MAINDEC=Z77=CNDVA=A 
‘CNDVAA.P11 


ee 


fos 





003524 
003524 


003532 
003532 


MACY11 30(1046) 


16=DEC=82 15:12 


012767 
052777 
000005 
032777 
001401 


104034 


003532 175356 


000040 175520 


000040 175510 


T 


\ mov 
BIS 
RESET 
BIT 
BEQ 


ERROR 
$40: 


G 4 
16=DEC=82 15:13 PAGE 164-1 
10 ._ DATAIE = RCSRS SET, CLEAR, 


#64$ ,SLPERR 


#DATAIE,@RCSR 


#DATAIE,aRCSR 
$40 


34 


RESET 
BGNSUB 


LET @RCSR := ARCSR SET.BY #DATAIE 


; ISSUE BUS RESET 
BRESET 


IF #DATAIE SETIN @RCSR THEN 
; DATAIE DID NOT RESET IN RCSR 
ERRHRD 34,,DIDNOT 

ENDIF 


ENDSUB 
ENDTST 


FF REAR EEE EE EAE EEE EEE EEAEEEEEEEREREEEEEEEEEREEEEKEEEE 


SEQ 0045 


M 
Cl 


‘i 


MAINDEC=Z7=CNDVA~A 


CNDVAA.P11 


; 003554 
» 003556 
) 564 


16=DEC-82 


000004 
012767 
012767 
012767 
032777 
001401 


104035 


012767 
052777 


032777 
001001 


104036 


012767 
042777 


032777 
001401 


104037 


000010 
000011 


003600 


000100 


003620 
000100 


000100 


003646. 


000100 


000100 


1 30(1046) 


175374 
175406 


175310 


175452 


175270 
175432 


175424 


175242 


175404 


175376 


16=DEC=82 15:13 PAGE 165" 
T10 DATAIE = SET 


4 


RCSRS » CLEAR, RESET 


FERRARA RARER E RETA ERATE RE ETE EAA RAEAEEREREERARREEERERAEEEEE 


SATEST 11 


RCVRIE = RCSR6 SET, CLEAR, RESET 


WPOOTTTTTTTTITITITETTIT TTT TTT LILI T TTL TT TTL LLL 


$111: SCOPE 
MOV 
MOV 
MOV 


BIT 
BEQ 


ERROR 
$41: 


MOV 
BIS 


BIT 
BNE 


ERROR 
$42: 


MOV 
BIC 


BIT 
BEQ 


ERROR 
$43: 


#10, $TIMES 300, 10 ITERATIONS 
#11,$TESTN *SET TEST NUMBER IN APT MAIL BOX 
: SEE IF IT IS CLEAR 
BGNSUB 
#64$,$LPERR 
IF #RCVRIE SETIN @RCSR THEN 
#RCVRIE ARCS 
RCVRIE DID NOT RESET IN RCSR 
ERRHRD 35, .DIDNO 
35 
ENDIF 
ENDSUB 
; TRY TO SET RCVRIE BIT 
BGNSUB 
#64$,SLPERR 
LET  @RCSR := @RCSR SET.BY #RCVRIE 
#RCVRIE,@RCSR 
: STUCK TO 0 
IF #RCVRIE NOTSETIN @RCSR THEN 
#RCVRIE .ARCSR 
RCVRIE DID NOT set IN RCSR 
ERRHRD 36, .DIDNO 
36 
ENDIF 
ENDSUB 
: TRY TO CLEAR A SET BIT 
BGNSUB 
#64$,$LPERR 
LET  @RCSR := @RCSR CLR.BY #RCVRIE 
#RCVRIE ,ARCSR 
; SHOULD HAVE CLEARED 
IF #RCVRIE SETIN @RCSR THEN 
#RCVRIE ARCS 
RCVRIE DID NOT CLEAR IN RCSR 
- ERRHRD 37. .DIDNOT 
ENDIF 
ENDSUB 


3; NOW SEE IF RESET CLEARS IT 


MAINDEC=Z2=CNDVA=A 
CNDVAA.P11 


012767 
052777 
060005 
032777 
001401 


104040 


MACY11 30(1046) 


16=DEC=82 15:12 


003674 175214 


000100 175356 


000100 175346 


- 
16=DEC-82 15:13 PAGE 165-1 
T11 RCVRIE = RCSR6 SET, CLEAR, 


MOV #64$,,SLPERR 
BIS #RCVRIE ,ARCSR 
RESET 

BIT #RCVRIE ,@RCSR 
BEQ $44 

ERROR 40 


$44: 


RESET 


BGNSUB 


EN 
ENDTST 


LET @RCSR := ARCSR SET.BY #RCVRIE 


ISSUE BUS RESET 
BRESET 


IF #RCVRIE SETIN @RCSR THEN 
3; RCVRIE DID NOT RESET IN RCSR 
ERRHRD 40,,DIDNOT 

ENDIF 

CKLOOP 


DSUB 


FERRARA EAERAEEAAAE EEE EEE EEE EEE EAAEKERAEKEHAEREREEER EERE Ee 


:* THE FOLLOWING 4 TESTS VERIFY 


;* THAT RESET (INIT) INITIALIZES READ ONLY BITS. 


PPEITITITITITISTITITITI LIT IS IIIT TIT TTT ETT ITT TTT iii iit titi it it tT 


SEQ 0047 


“4 
C 


MAINDEC=Z27=CNDVA=A 
CNDVAA.P11 16=DEC=82 15:12 


fe 


003716 000004 


003720 012767 000010 
003726 012767 000012 


232 
244 


—— 
aN 
ww 


3734 
003734 012767 003742 175146 


6) 003742 032777 000200 175310 
+ 003750 001402 


RS 
& 


4 ~~ 

PEZIRE AF g 
OBNANR LW = TOO 

Ss 

5 

IWS 

aN 

wv 

ro 


003752 104041 


aren 


003754 000005 


003756 
003756 


:. 


0 


Se 


MACY11 30(1046) 


J 
16=DEC-82 15:13 PAGE 166 
T11 RCVRIE = RCSR6 SET, CLEAR, RESET 


PLeeeeaeeneeeeneeeeeeeeeeeeeeeeereeeedeeneeeeeeeeeeteeeeeeteeeee 
s*TEST 12 TEST THAT RCVRDONE = RCSR 7 = IS CLEARED BY INIT 
PUTO T IIT IITITIITTe LIST Titi t ii iitiitisiitiilitiatiiiitisii ity, 


$112: SCOPE 


MOV #10,STIMES 


33D0_10 ITERATIONS 
MOV #12,$TESTN 


7;SET TEST NUMBER IN APT MAIL BOX 


BGNSUB 
MOV #64$ ,SLPERR 


BIT #RCVRDONE ,ARCSR 
$45 


IF #RCVRDONE SETIN @RCSR THEN 


SEQ 0048 


sRCVRDONE SHOULD HAVE CLEARED BY INIT 
AR IN RCSR 


* RCVRDONE DID NOT CLE 
ERRHRD 41,HRESET, DIDNOT 


ERROR 41 
sREISSUE RESET 
BRESET 
RESET 
ENDIF 
$45: 
;ALLOW LOOPING AFTER ERROR 
CKLOOP 
ENDSUB 


N 
ENDTST 


MAINDEC=Z7=CNDVA-A 
CNOVAA.P11 


VIN MNWW 
Wow wvvuevrne 


333. 


8888 ,8858 


003756 


003760 
003766 


003774 
003774 


MACY11 30(1046) 


16=DEC=82 15:12 


000004 


012767 
012767 


012767 


032777 


001002 


104042 


000005 


000010 
000013 


004002 


000200 


175106 


175254 


T 


16=DEC-82_ 15:13 PAGE 167 
12 TEST THAT RCVRDONE = RCSR 7 = IS CLEARED BY INIT 


SEQ 0049 


ERASER REREEREEEREEEEEEEAEERERAEEERAEREAAAEAAEAAAAEEREEEEEE 


S#TEST 13 


$113: 


$46: 


SCOPE 


MOV 
MOV 


MOV 


BIT 


BNE 


ERROR 


RESET 


TEST THAT XMITRDY = TCSR 7 = IS SET BY INIT 


© REAR EEEEAEREREEEEEEEEAEEAERAAAAAAAAAAEEEAAEEEREREREEEEEEEEE 


#10,$TIMES 33D0_10 ITERATIONS 
#13,STESTN 33;SET TEST NUMBER IN APT MAIL BOX 
BGNSUB 
#64$,,SLPERR 
IF #XMITRDY NOTSETIN @TCSR THEN 
a 


42 


ENDS 


ENDTST 


:RESET SHOULD HAVE SET BIT. 
“XMITRDY DID NOT SET IN TCSR (AFTER RESE 
ERRHRD 42,HRESET,DIDNOT 


s ISSUE ANOTHER RESET 
BRESET 


ENDIF 
poise LOOPING ON ERROR 


CKLOO 
UB 


L 
‘MAINDEC=Z2=CNDVA=A MACY11 30(1046) 16=DEC+82 15:13 PAGE 168 
CNDVAA.P11 16=DEC=82 15:12 T13 TEST THAT XMITRDY = TCSR 7 = IS SET BY INIT SEQ 0050 


9689 PARRA AeeeeeeAe eee eeAAeee EHH eee AeeeeeeAAeeteeeteeeteeeeeeeerees 
s*TEST 14 TEST THAT DATAINT = RCSR 15 = IS CLEARED BY INIT. 
Peet ii titi liti tii ii ati tiliii titi iii titi riti irri rs rit, 


004016 000004 T5114: SCOPE 


004020 012767 000010 175132 MOV #10,STIMES 3;D0_10 ITERATIONS 
004026 012767 000014 175144 MOV #14,$TESTN 33SET TEST NUMBER IN APT MAIL BOX 


9698 004034 BGNSUB 
(5) 004034 012767 004042 175046 MOV #64$,$LPERR 

9699 004042 IF #DATAINT SETIN @RCSR THEN 
(6) 004042 032777 100000 175210 BIT #DATAINT ,@RCSR 
(9) 004050 001402 BEQ $47 


9701 004052 ERRHRD 43, HRESET, DIDNOT 
004052 104043 ERROR 43 


9703 TESTING EFFECT OF RESET ON BIT 


9705 :DATAINT DID NOT CLEAR IN RCSR 
9706 backer A FRESH START 


000005 RESET 
(4) 004056 $47: 
09 


004 
9711 004056 ENDTST 


9719 FFARR RARE AAA AEE EEE AEA EATER EAE EEERERAERAEEE EERE EERE 


- ——— - — ——— 


‘MAINDEC=27=CNDVA-A 


MACY11 


CNDVAA. P11 16=DEC=82 15:12 


004060 012767 


3) 
3) 
$ 004056 000004 
1) 
2) 066 012767 


032767 
001004 


~ 
oa 
~ 
S 
& 


(5) 004104 012767 
( 000411 


114 
004114 012767 

38 004122 
(6) 004122 032777 
) 30 001402 


132 
004132 104044 


(1) 004134 000005 


000010 
000015 


020000 


000001 


004122 


.004000 


30(1046) 


175072 
175104 
175116 


175046 


174766 


175130 


169 
TEST THAT DATAINT = RCSR 15 = IS CLEARED BY INIT. 


FERRARA RE AEEE AE EE EERE EE AEREAAEERAEREEARAEEEEAERAEREREEEAKE EE 


EST 15 TEST THAT RCVRACT = RCSR 11 = 15 CLEARED BY INIT 


SRR EAAEREEE EEE EEEEEAEAAAEAEAAEEAEEREREEREEREEKREEEEEE 


1g 16-DEC~ -82 15:13 PAGE 
tir 

18115: SCOPE 
MOV #10,$TIMES 
MOV #15,$TESTN 
BIT #CABLE , SUSWR 
BNE $50 
MOV #1,$TIMES 
BR TST16 

$50: 
MoV #64$,$LPERR 
BIT #RCVRACT,a@RCSR 
BEQ $51 
ERROR 44 
RESET 

$51: 


3:00 10 ITERATIONS 
3;SET TEST NUMBER IN APT MAIL BOX 


IF #CABLE NOTSETIN SUSWR THEN 
Pad T TEST WITHOUT BERG OR H315. 


EXIT'T 
3ssEXIT THIS TEST 
ENDIF 


BGNSUB 


IF #RCVRACT SETIN @RCSR THEN 


RESET SHOULD HAVE vo RCVRACT 
ERRHRD 44, HRESET, DIDNO 

TESTING EFFECT OF RESET ON BIT 
sRCVRACT DID NOT CLEAR IN RCSR 
ALLOW ANOTHER TRY 
BRESET 


ENDIF 


ALLOW LOOPING ON ERROR 

CKLOOP 
ENDSUB 
ENDTST 


SEQ 0051 


™ 
cl 


cere 


[MAINDEC=27=CNDVA-A 
16=DEC-82 15:1 


| CNDVAA.P11 


oo 
ror 


— 3 
aco 


Nm 
So 


000004 
012767 
012767 
032767 
001004 


012767 
000441 


012767 


042777 


032777 
0074.01 


104045 


000010 
000016 


060000 


000001 


004202 


000002 


010000 


macys 30( 1046) 


174766 


174706 


175050 


175042 


16=DEC-82_ 15:13 PAGE 170 
T15 TEST THAT RCVRACT = RCSR 11 = 15 CLEARED BY INIT 


‘ 
¢ 


Pirin acs k Gee wee ee eae ae 


;* THE FOLLOWING 4 TESTS 


;* AND RECEIVED THROUGH T 


3 VERIFY 
+ THAT THE EIA SIGNALS CAN BE TRANSMITTED 


FURR AREA AEEER ERE AREA EEE EERE ERE RAEEREAEERERE ERE EEEREER ERE ED 


ERRATA EERE ERATE EERE AREA ARERR REERERAAEE EERE EEE 


;#TEST 16 


TEST THAT CARDET SETS AND CLEARS 
AS DTR__ SETS AND CLEARS 
THE (-FD) JUMPER MUST BE IN FOR THIS TEST. 


RARER EERE EAE EAE EEE EEEEREEEEEEREREEREEEREREEEREEEREREE 


oes SCOPE 
MOV 
MOV 
BIT 
BNE 


MOV 
BR 


$52: 


MOV 


BIC 


BIT 
BEQ 


ERROR 


$53: 


#10,STIMES 3:D0_ 10 ITERATIONS 


#16,$TESTN 33SET TEST NUMBER IN APT MAIL BOX 
N WE USE THE WRAPAROUND?? 
IF WCABLE+FRED NOTSETIN SUSWR THEN 
aa 


; CAN'T TEST WITHOUT BERG OR H315 
: OR WITH (-FD) JUMPER OUT. 
3_OR WITH (=FR) JUMPER OUT. 

EXIT TST 


#1,$TIMES 
TST17 rgEXIT THIS TEST 
ENDIF 
: DTR AND 
: CARDET ARE CONNECTED 
; BY THE H315 OR EQUIV. 
: CLEAR 
BGNSUB 
#64$,SLPERR 
; CLEAR DTR 
LET ° @RCSR := ARCSR CLR.BY #DTR 
#DTR,ARCSR 
: CARDET SHOULD FOLLOW 
IF #CARDET SETIN @RCSR THEN 
#CARDET,a@RCSR 
$53 
CARDET DID NOT 
ERRHRD 45,,FORCE 
45 
> CLEAR WITH DTR 
ENDIF 
ENDSUB 


SEQ 0052 


2 
a 
i 


— 
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012767 


052777 


032777 
001001 


104046 


012767 


042777 


032777 
001401 


104047 


004230 


000002 


010000 


004256 


000002 


010000 


174660 


175022 


175014 


174632 


174774 


174766 


1e-SEC=Se 15:13_ PAGE 170-1 . 


T16 


$54: 


$55: 


TEST THAT CARDET SETS AND CLEARS SEQ 0053 
: SET 
BGNSUB 
MOV #64$ ,SLPERR 
; SET DTR 
LET @RCSR := ARCSR SET.BY #DTR 
BIS #DTR,ARCSR 
3 CARDET SHOULD FOLLOW 
IF #CARDET NOTSETIN- @RCSR THEN 
BIT #CARDET,@RCSR 
BNE $54 
;_CARDET DID NOT SET 
ERRHRD 46, ,FORCE 
ERROR 46 
; WITH DTR 
ENDIF 
ENDSUB 
; CLEAR 
BGNSUB 
MOV #64$,SLPERR 
; CLEAR DTR 
LET @RCSR := @RCSR CLR.BY #DTR 
BIC #DTR,ARCSR 
: CARDET SHOULD FOLLOW 
IF #CARDET SETIN @RCSR THEN 
BIT #CARDET,@RCSR 
BEQ $55 
;_CARDET_DID NOT 
ERRHRD 47,,FORCE 
ERROR 47 


; CLEAR WITH DTR 
ENDIF 


ENDSUB 


ENDTST 
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004342 


004362 
62 
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004362 
004362 
004370 
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032767 
001004 


012767 
000441 


012767 
042777 


032777 
001401 


104050 


012767 


052777 
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000010 
000017 
060000 


000001 


004342 


000002 


020000 


004370 


000002 
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174626 


174546 


174710 


174702 


174520 


174662 


C 
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T16 TEST THAT CARDET SETS AND CLEARS SEQ 0054 


FRR AERAARARERE RATER ER ER EEE E ET ERE EERE ERE RA EERE ERRERERAERRERES 
SeRCeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeeeeteneereeeeeenenreeeeeees 
TSTEST 17 TEST THAT CLRSEND SETS AND CLEARS 
se AS DTR SETS AND CLEARS 
(=FD) JUMPER MUST BE IN FOR THIS TEST TO WORK 
REREAEEEEEEREREREEEETEEAE TEASER EKREAEEEEAEAREREEEEREREEEEEEEEEE 


:* 
78117: SCOPE 


MOV #10,$TIMES 7:00 10 ITERATIONS 
MOV #17,$TESTN 3zSET TEST NUMBER e. APT MAIL BOX 
; N WE USE THE WRAPAROUND?? 
IF pCABLETERED NOTSETIN $USWR THEN 
BIT #CABLE+FRFD,SUSWR 
BNE $56 
: CAN'T TEST WITHOUT BERG OR H315 
EXIT TST 
MOV #1,$TIMES 
BR TST20 szzEXIT THIS TEST 
ENDIF 
$56: 
: DTR AND 
: CLRSEND ARE CONNECTED 
; BY THE H315 OR EQUIV. 
3; CLEAR 
BGNSUB 
MOV #64$,$LPERR 
; CLEAR ODTR 
LET @RCSR := ARCSR CLR.BY #DTR 
BIC #DTR,ARCSR 
: CLRSEND SHOULD FOLLOW 
IF #CLRSEND SETIN @RCSR THEN 
BIT #CLRSEND,ARCSR 
BEQ $57 
CLRSEND DID NOT 
ERRHRD 50,,FORCE 
ERROR 50 
; CLEAR WITH DTR 
ENDIF 
$57: 
ENDSUB 
3; SET 
BGNSUB 
MOV #64$,SLPERR 
; SET DTR 
LET @RCSR := ARCSR SET.BY #4DTR 
BIS #DTR,ARCSR 


; CLRSEND SHOULD FOLLOW 
IF #CLRSEND NOTSETIN @RCSR THEN 


aT 
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020000 174626 
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$60: 


~DEC-82 - 
TEST THAT CLRSEND SETS AND 

BIT #CLRSEND ,ARCSR 
BNE $60 
ERROR 51 

: CLEAR 
MOV #64$ ,SLPERR 
BIC #DTR,ARCSR 
BIT #CLRSEND,@RCSR 
BEQ $61 
ERROR 52 


$61: 


CLEARS 


3 CLRSEND DID NOT SET 
ERRHRD 51,,FORCE 


; WITH DTR 
ENDIF 
ENDSUB 


BGNSUB 


; CLEAR DTR 
@RCSR := @RCSR CLR.BY #DTR 


3; CLRSEND SHOULD FOLLOW 
IF #CLRSEND SETIN @RCSR THEN 


LET 


3 CLRSEND DID NOT 
ERRHRD 52,,FORCE 


; CLEAR WITH DTR 
ENDIF 


ENDSUB 
ENDTST 


SEQ 0055 
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(5) 004474 
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9953 004522 
(5) 004522 


9956 004530 
(7) 004530 
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000010 
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060000 
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004502 


000004 


040600 


004530 


000004 


174466 


174406 


174550 


174542 


174360 


174522 
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T17 TEST THAT CLRSEND SETS AND CLEARS SEQ 0056 


gpeeenccananeneneseeeeessoosssoqesareqqesooqqasosenssoosonesseds 
PRRARAKR RARE TAAEAAAA TATA AAA A eee eee AeeeteeAteeeeteeteeeeeeeer 
:#TEST 20 TEST THAT RING SETS my CLEARS 

AS_ REQSEND SETS AND CLEARS 

THE (=FR) JUMPER MUST BE IN FOR THIS TEST. 


PAAR AALAAALALEALALAL AAA AA ASRS A SAE RARER EASA AAAS RRR ARRAS 


i 
78120: SCOPE 


MOV #10,$TIMES 33D0_10 ITERATIONS 
MOV #20,$TESTN 33SET TEST NUMBER im, APT MAIL BOX 
WE USE THE WRAPAROUND?? 
IF bcABLE FRED NOTSETIN $USWR THEN 


BIT #CABLE+FRFD ,SUSWR 
BNE $62 
; CAN'T TEST WITHOUT yt - H315 
exit’t 3 OR WITH (=FR) JUMPER OUT 


MOV #1,$TIMES 
BR TST21 33sEXIT THIS TEST 
ENDIF 


$62: 
3 REQSEND 
+ RING ARE ANONNECTED 
; BY THE H315 OR EQUIV. 
3; CLEAR 
BGNSUB 
MOV #64$ ,SLPERR 
3: CLEAR REQSEND 
LET @RCSR := ARCSR CLR.BY #REQSEND 
BIC #REQSEND ,ARCSR 
3; RING SHOULD FOLLOW 
IF #RING SETIN @RCSR THEN 
BIT #RING, ARCSR 
BEQ $63 
RING DID NOT 
ERRHRD 53.,.FORCE 
ERROR 53 
; CLEAR WITH REQSEND 
ENDIF 
$63: 
ENDSUB 
3: SET 
BGNSUB 


MOV 464% ,SLPERR 


; SET REQSEND 
LET @RCSR := @RCSR SET.BY #REQSEND 


3: RING SHOULD FOLLOW 


BIS #REQSEND ,ARCSR 
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032777 
001001 


104054 


012767 


042777 


032777 
001401 


104055 


MACY11 30(1046) 


040000 


004556 


000004 
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T20 TEST THAT RING SETS AND CLEARS 


$64: 


$65: 


BIT 
BNE 


ERROR 


MOV 


BIC 


BIT 
BEQ 


ERROR 


#RING ,ARCSR 
$64 


54 


; CLEAR 
#64$ ,SLPERR 


#REQSEND ,ARCSR 


#RING, ARCSR 
$65 


55 


IF #RING NOTSETIN @RCSR THEN 


> RING DID NOT SET 
ERRHRD 54,,FORCE 


: WITH REQSEND 
ENDIF 
ENDSUB 
BGNSUB 
: CLEAR REQSEND 
LET  @RCSR := A@RCSR CLR.BY #REQSEND 
: RING SHOULD FOLLOW 
IF #RING SETIN ARCSR THEN 


: RING DID NOT 
ERRHRD 55,,FORCE 


> CLEAR WITH REQSEND 
ENDIF 


ENDSUB 
ENDTST 


SEQ 0057 
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042777 


032777 
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104056 
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032777 
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004642 


000010 


002000 


004670 


000910 
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174410 
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174220 
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174354 
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T20 TEST THAT RING SETS AND CLEARS 


FERRARA RARER EATER EERE EERE EEE EEE ERE REE EEEARAAE ERRATA REREE EE 
ITITITITILITLL LILLIA ELLE LLL Lath 


:STEST 21 


segubuadbunenansncubiaesuseiionsent asrentnaaniiasnneniantebenin 


$121: 


$66: 


$67: 


SCOPE 
MOV 
MOV 


BIT 
BNE 


MOV 
BR 


MOV 


MOV 


BIS 


TEST THAT SECREC SETS AND ems 
AS SECXMIT AND CLEAR 


#10,STIMES . 
#21,S$TESTN - 
#CABLE , SUSWR 
$66 


#1,STIMES 
TST22 


: CLEAR 
#64$ ,SLPERR 


#SECXMIT,@R-SR 


#SECREC,@RCSR 
$67 


56 


: SET 
#64$,$LPERR 


#SECXMIT,@RCSR 


#SECREC,aRCSR 


SETS A 


3300 10 ITERATIONS 
ssS&V TEST NUMBER IN APT MAIL BOX 

CAN WE USE THE * WRAPAROUND? 
IF bcABLE NOTSETIN SUSWR THEN 


; CAN'T TEST WITHOUT BERG OR H315. 
EXIT’ TST 
zzsEXIT THIS TEST 
ENDIF 


3 SECXMIT A 
; SECREC ARE CONNECTED 


; BY THE H315 OR EQUIV. 
BGNSUB 
: CLEAR SECXMIT 
LET @RCSR := ARCSR CLR.BY #SECXMIT 
3 SECREC SHOULD FOLLOW 
IF #SECREC SETIN @RCSR THEN 


SECREC DID NOT 
ERRHAD 56, FORCE 


; CLEAR WITH SECXMIT 
ENDIF 
ENDSUB 


BGNSUB 


: SET SECXMIT 
LET @RCSR := ORCSR SET.BY #SECXMIT 


: SECREC SHOULD FOLLOW 
IF #SECREC NOTSETIN- @RCSR THEN 


SEQ 0058 


——> —_— js —~— —— 
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104057 


012767 


042777 


032777 
001401 


104060 


004716 


000010 


002000 


174172 


174334 


174326 
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H 
TEST THAT SECREC sets AND CLEARS SEQ 0059 


BNE 


ERROR 


MOV 


BIC 


BIT 
BEQ 


ERROR 


$70 


57 


; CLEAR 
#64$ ,SLPERR 


#SECXMIT,@RCSR 


#SECREC,@RCSR 
$71 


60 


SECREC_DID NOT SET 
ERRHRD 57, FORCE 


: WITH SECXMIT 
ENDIF 
ENDSUB 
BGNSUB 
; CLEAR SECXMIT 
LET ° @RCSR := ARCSR CLR.BY #SECXMIT 
: SECREC SHOULD FOLLOW 
IF #SECREC SETIN @RCSR THEN 


SECREC DID NOT 
ERRHRD 60, ,FORCE 


; CLEAR WITH SECXMIT 
ENDIF 


ENDSUB 
ENDTST 


oO 2 
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CNDVAA.P11 Ve-DEC=82 1 12 T21 TEST THAT SECREC SETS AND CLEARS SEQ 0060 
1 7 
by FR FERRARA TEER AA ATTRA EEAETEE EEE HAAREREAAEREE TEAR EEAAERREHEEEE 
10069 Seeeeeeeeeneneeeeederededereeeeeeneenentteneeeteeeeenteeeeeeeere 
(3) tS TEST 22 TEST THAT DATAINT (RCSR-15) SETS 
(4) ie WHEN DTR CHANGES STATE 
(4) 3* AND THAT DATAINT IS CLEARED AFTER READING RCSR 
(4) 3* NOTE DTR IS TIED TO BOTH CARDET AND CLRSEND BY THE H315 
(4) 3* THE (=FD) JUMPER MUST BE IN FOR THIS TEST. 
(3) TTTITITITITITITITITIILITITILILILILiLiTiti Titi i Litt iki ttt 
‘s} 004736 000004 TST22: SCOPE 
(1) 004740 012767 000010 174212 MOV #10,$TIMES 3:D0 10 ITERATIONS 
(2) 004746 012767 000022 174224 MOV #22,$TESTN 33SET TEST NUMBER Fie APT MAIL BOX 
10070 CAN WE USE THE WRAPAROUND?? 
10075 004754 IF CABLE +FRED NOTSETIN S$USWR THEN 
(6) 004754 032767 060000 174236 BIT #CABLE+FRFD,SUSWR 
(9) 004762 001004 BNE $72 
10076 ; CAN'T og WITHOUT BERG OR H315 
10077 : OR WITH (=FD) JUMPER OuT. 
10078 004764 EXIT TST 
(5) 004764 012767 000001 174166 MOV #1,STIMES 
(3) 004772 000463 BR TST23 zzzEXIT THIS TEST 
10079 004774 ENDIF 
10080 004774 $72: 
10081 sMAKE SURE NOTHING UNEXPECTED HAPPENS 
10086 004774 012746 000300 MOV #PR6,-(SP) 7;PUT NEW PS ON STACK 
(1) 005000 012746 005006 MCV #64$,-(SP) 3;PUT NEW PC ON STACK 
(1) 005004 000002 RTI 3;POP NEW PC AND PS 
(1) 005006 64$: 
10091 
10092 sREAD TWICE = CLEARS 
10093 005006 BGNSUB 
(5) 005006 012767 005014 174074 MOV #65$,SLPERR 
10094 ; CLEAR DTR 
10095 005014 LET @RCSR := ARCSR CLR.BY #DTR 
(7) 005014 042777 000002 174236 BIC #DTR,@RCSR 
10096 juals 1 MILLI-SEC FOR CABLE 
10097 005022 WAITMS 
(4) 005022 010546 MOV R5,-(SP) 
(5) 005024 012745 000001 MOV #1,-(R5) 
(4) 005030 004767 004712 JSR PC WAIT 
(4) 005034 012605 MOV (SP)+,R5 
10098 ; READ RCSR = TO CLEAR DATAINT 
10099 005036 LET R3 := @RCSR 
(4) 005036 017703 174216 MOV ARCSR,R3 
10100 ; READ RCSR AGAIN 
10101 005042 IF #DATAINT SETIN @RCSR THEN 
(6) 005042 032777 100000 174210 BIT #DATAINT,@RCSR 
(9) 005050 001401 BEG $73 
10102 READING RCSR Hh NOT CLEAR DATAINT 
10103 005052 ERRHRD 61, EDATAINT 
(1) 005052 104061 ERROR 61 
10104 005954 ENDIF 
(4) 005054 $73: 
10105 
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pont eee 
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o~n 
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100000 
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174150 


173766 


174130 
174122 


16 
T22 


J. 5 
“DEC-82 15:13 PAGE 174-1 


$74: 


$75: 


$76: 


TEST THAT DATAINT (RCSR-15) SETS SEQ 0061 
ENDSUB 
; OTR SETTING SETS DATAINT 
BGNSUB 
MOV #64$ ,SLPERR 
SET DIR 
LET @RCSR := ARCSR SET.BY #DTR 
BIS #DTR,ARCSR 
IF #DATAINT NOTSETIN @RCSR THEN 
BIT #DATAINT,@RCSR 
BNE $74 
;SETTING DTR DID NOT SET DATAINT 
ERRHRD 62,, E2DATA 
ERROR 62 
ENDIF 
IF #DATAINT SETIN @RCSR THEN 
BIT #DATAINT,@RCSR 
BEQ $75 
sREADING_RCSR DID NOT CLEAR DATAINT 
ERRHRD 63,EDATAINT 
ERROR 63 
ENDIF 
ENDSUB 
; DTR CLEARING SETS DATAINT 
BGNSUB 
MOV #64$ ,SLPERR 
CLEAR DTR 
LET @RCSR := @RCSR CLR.BY #DTR 
BIC #DTR,ARCSR 
IF #DATAINT NOTSETIN @RCSR THEN 
BIT #DATAINT ,ARCSR 
BNE $76 
;CLEARING DTR DID NOT SET DATAINT 
ERRHRD 64,,E2DATA 
ERROR 64 
ENDIF 
ENDSUB 


ENDTST 


io oe 2 
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PAGE 175 
TEST THAT DATAINT (RCSR=15) SETS SEQ 0062 


FERRARA AERA E AEE E EERE EE EEE EE EA RARER ERAAERARRERAERAE REET EE 
ITITITITILILLLLL LTT LTT LETTE LLL LLL ELL LLL ELLE hii 


:#TE 


7* 
3* 


ST 23 


TEST THAT DATAINT SETS WHEN RING SETS 
AND THAT DATAINT DOES NOT SET ig RING CLEARS 
THE (=FR) JUMPER MUST BE IN FOR THIS TEST. 


TUTE TTTT TTT TET ETT TTT T TTT TTT TTT TTT TTT TTT TTT TT TTT TTT 


i$123: 


$77: 


64$: 


SCOPE 
MOV 
MOV 


BIT 
BNE 


$700: 


#10, $TIMES ;:D0_10_ ITERATIONS 
#23, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
CAN WE USE THE WRAPAROUND?? 
IF HCABLE*FRFD NOTSETIN SUSUR THEN 
#CABLE+F RFD, SUSUR 
; CAN'T TEST WITHOUT BERG OR H315 
;_OR WITH (=FR) JUMPER OUT. 
EXIT’ TST 
#1, STIMES 
TST24 333EXIT THIS TEST 
ENDIF 
:NO_INTERRUPTS 
#PR6,-(SP) ;:PUT NEW PS ON STACK 
#64$,-(SP) :PUT NEW PC ON STACK 
::POP NEW PC AND PS 
START OFF WITH EVERYTHING CLEAR 
BGNSUB 
#65$,SLPERR 
CLEAR RING 
LET " @RCSR := @RCSR CLR.BY #REQSEND 
#REQSEND ,ARCSR 
WAIT 1 MILLI-SEC FOR CABLE 
WAITMS 1 
R5,=(SP) 
#1,-(R5) 
PC WAIT 
(SP)+,R5 : 
;READ ONCE 
LET “ R3 := @RCSR 
ARCSR,R3 
sREAD TWICE 
IF ° #DATAINT SETIN @RCSR THEN 
#DATAINT ,@RCSR 
READING RCSR DID NOT CLEAR DATAINT 
- ERRHRD 65, EDATAINT 
ENDIF 
ENDSUB 


lo ix 2 


=. 
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-MAINDEC=272=CNDVA=A MACY11 30(1046) 1 - 
-CNDVAA.P11 16=DEC=82 15:12 12 TEST THAT DATAINT SETS WHEN RING SETS SEQ 0063 
10188 : SET RING ==> SET DATAINT 
10189 005260 BGNSUB 
10.3 005260 012767 005266 173622 MOV #64$,$LPERR 
- 10191 :WE ARE SETTING RING 
| 10192 : SET RIN 
| 10193 005266 LET  @RCSR := ARCSR SET.BY #REQSEND 
| _ (7) 005266 052777 000004 173764 BIS #REQSEND ,aRCSR 
10194 sWAIT 1 MILLI-SEC FOR CABLE 
10195 005274 WAITMS 1 
| (4) 005274 010546 MOV R5,=(SP) 
/ (5) 005276 012745 000001 MOV #1,-(R5) 
| (4) 005302 004767 004440 JSR PC WAIT 
(4) 005306 012605 MOV (SP)+,R5 
| 10196 005310 IF #DATAINT NOTSETIN @RCSR THEN 
(6) 005310 032777 100000 173742 BIT #DATAINT,@RCSR 
| _ (9) 005316 0017001 BNE $101 
10197 :SETTING RING DID NOT SET DATAINT 
| 10198 005320 ERRHRD 122,, E2DATA 
(1) 005320 104122 ERROR 122 
10199 005322 ENDIF 
(4) 005322 $101: 
10200 005322 ENDSUB 
10202 sCLEAR RING CAUSES NO CHANGE IN DATAINT (CLEAR) 
10203 005322 BGNSUB 
1062 005322 012767 005330 173560 MOV #64$,$LPERR 
10205 ZCLEAR RING 
10206 005330 LET “ @RCSR := @RCSR CLR.BY #REQSEND 
(7) 005330 042777 000004 173722 BIC #REQSEND ,aRCSR 
10207 :WAIT 1 MILLI-SEC FOR CABLE 
10208 005336 WAITMS 1 
(4) 005336 010546 MOV R5,-(SP) 
(5) 005340 012745 000001 MOV #1,-(R5) 
(4) 005344 004767 004376 JSR PC,WAIT 
(4) 005350 012605 MOV (SP)+,R5 
10209 005352 IF #DATAINT SETIN @RCSR THEN 
(6) 005352 032777 100000 173700 BIT #DATAINT, aRCSR 
(9) 001401 BEQ $102 
10210 sCLEARING RING SET DATAINT 
10211 005362 ERRHRD 123, CLRRNG 
(1) 005362 104123 ERROR 123 
10212 005364 ENDIF 
(4) 005364 $102: 
10213 005364 ENDSUB 
10214 005364 EXIT :SKIP AROUND MESSAGE 
(3) 005364 000400 BR TST24 ss:EXIT THIS TEST 
10215 005366 ENDTST 
10216 
10217 
10218 
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005366 


005370 
005376 


005404 
005404 
005412 
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000004 
012767 
012767 


032767 
001004 


012767 
000454 


012746 


042777 
017703 


012767 


052777 
010546 
012605 
032777 
001001 


104124 


MACY1 
15:12 


000010 
000024 
020000 


000001 


000300 
005436 


000010 
173610 


005456 
000010 
000001 


004250 


100000 
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173536 


173614 


173432 


173574 


173552 


16-DEC-82_ 15:13. PAGE 176 
T23 TEST THAT DATAINT SETS WHEN RING SETS SEQ 0064 


FERRARA AREER REAR E REET E EERE AERA RARER RAE RARREEAEEAEREEREEER EH 
SAAR RARAEEAERAEAAAE EERE EEE EERE RARER ARERAAEERAAEEAEEERAREREEEEE 


TEST THAT DATAINT SETS WHEN SECREC CHANGES STATE 


5 RARE RERAA EERE EEA TEER AEE E AAA ERE AAAEEA ERATE EKEEEEKEREE 


T*TEST 246 

TST24: SCOPE 
MOV 
MOV 


BIT 
BNE 


MOV 
BR 


$103: 


64$: 


MOV 


BIS 


BIT 
BNE 


ERROR 
$104: 


#CABLE ,SUSWR 
$103 


#1,$TIMES 
TST25 


#PR6,-(SP) 
#64$ ,-(SP) 


#SECXMIT,@RCSR 
@RCSR,RS 


33;D0_ 10 ITERATIONS 
3;SET TEST NUMBER IN APT MAIL BOX 

3; CAN WE USE THE WRAPAROUND?? 
IF #CABLE NOTSETIN $USWR THEN 


3_CAN'T TEST WITHOUT BERG OR H315. 
EXIT TST 


3ecEXIT THIS TEST 
ENDIF 


3NO INTERRUPTS 
3zPUT NEW PS ON STACK 
3;PUT NEW PC ON STACK 
33POP NEW PC AND PS 


START FRESH 
CLEAR SECREC 
LET @RCSR := ARCSR CLR.BY #SECXMIT 


LET R3 := @RCSR 


SET SECREC ==> DATAINT SET 
BGNSUB 


#65$,S$LPERR 


#SECXMIT,@RCSR 


R5,-(SP) 
#1,-(R5) 
PC,WAIT 

(SP)+,R5 


#DATAINT ,ARCSR 
$104 


124 


sSET SECREC 
LET @RCSR := ORCSR SET.BY #SECXMIT 


sWAIT 1 MILLI-SEC FOR CABLE 
WAITMS 1 


IF #OATAINT NOTSETIN @RCSR THEN 
;SETTING SECREC DID NOT SET DATAINT 
ERRHRD 124,, EODATA 
ENDIF 
ENDSUB 


Pa 


oz 


(rr re ee —— a 
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‘MAINDEC=27~ CNDVA-A MACY11 30(1046) 16=DEC- i | 15:13_ PAGE 176-1 M 
,CNDVAA.P11 16=DEC=82 15:12 T24 TEST THAT DATAINT SETS WHEN SECREC CHANGES STATE SEQ 0065 AS 


CLEAR SECREC ==> DATAINT SET 
BGNSUB 


005512 
| "€5) «005512 012767 005520 173370 MOV  #64$, SLPERR 
| :CLEAR SECREC 
905520 


LET @RCSR := ORCSR CLR.BY #SECXMIT 

(7) 005520 042777 000010 173532 BIC #SECXMIT,@RCSR 

0271 zWAIT 1 MILLI-SEC FOR CABLE 

0272 005526 WAITMS 1 
(4) 005526 010546 MOV R5,-(SP) 
(5) 005530 piers 000001 MOV #1,-(R5) 
(4) 005534 004767 004206 JSR PC;WAIT 
(4) tere 012605 MOV (SP)+,R5 


(6) 005542 032777 100000 173510 BIT #DATAINT ,ARCSR 
001001 B $105 


( 
10274 CLEARING SECREC NOT SET DATAINT 
10275 005552 ERRHRD 125,, E2DA 
(1) 005552 104125 ERROR 125 
10276 005554 ENDIF 
(4) 005554 $105: 
10277 005554 ENvSUB 
10278 005554 ENDTST 


ree #DATAINT NOTSETIN @RCSR THEN 


-- 


005654 IF. ERROR THEN 

6) 005654 103001 BCC $107 

zXMIT RDY DID wt SET IN TCSR 
005656 ERRHRD 66, ,DIDNOT 

005656 104066 ERROR 66 

005660 ENDIF 

005660 $107: 

10321 005660 ENDSUB 


10323 005660 BGNSUB 
(5) 005660 012767 005666 173222 MOV #64$ ,SLPERR 
| 10324 ; LOAD TBUF WITH A SECOND CHARACTER 


MAINDEC=27=CNDVA=A MACY11 30(1046) 16=DEC-82 15:13 PAGE 177 
CNDVAA.P11 16=DEC=82 15:12 124 TEST THAT DATAINT SETS WHEN SECREC CHANGES STATE SEQ 0066 
102 
1oses FERRARA ARAARAEAEEEAEREREEEEEEEAEAAEREREEEAEAEAEAEEREEEEAREAAAEEE 
| 10293 SeeeReeeeeeeeeeeeeeeneeeeeeeeedeeneKKeeeteKeeenteeeeeeeeeeeeeeee 
(3) :#TEST 25 TEST THAT XMIT RDY = TCSR 7 = CLEARS 
(4) ie WHEN TBUF IS LOADED WITH A CHARACTER 
(4) ie AND THAT IT SETS WITHIN A REASONABLE AMOUNT OF TIME. 
(3) REARAEAAEAEARAAAEEATAEETEAATAETEEAEAAEAAAAEAEREAREREREEAAERAEERAEEEEEE 
(2) 005554 000004 78125: SCOPE 
(1) 005556 012767 000001 173374 MOV #1, STIMES ::D0 1 ITERATION 
10882 005564 012767 900025 173406 MOV #25, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
10299 : THIS TEST IS "BREAK OR HALT’ SINSATIVE. 
10300 005572 IF #APTENV SETIN SENV THEN 
(6) 005572 032767 000001 173414 BIT #APTENV, SENV 
(9) 005600 001404 BEQ $106 
10301 005602 EXIT TEST 
(5) 005602 012767 000001 173350 MOV #1,STIMES 
(3) 005610 000454 BR TST26 ss:EXIT THIS TEST 
10302 005612 ENDIF 
005 $106: 
(5) 005612 012767 005620 173270 MOV #64$,$LPERR 
10304 ; LOAD TBUF WITH ONE CHARACTER 
10305 + WALT FOR READY TO S$ SET 
10306 : (SHOULD BE VERY SHORT WAIT 
10307 + SINCE UART DOUBLE SUFFERS ITS INPUT) 
10309 sSEND A CHARACTER 
10310 005620 LET @TBUF :B= #0 
(4) 005620 105077 173444 CLRB = ATBUF 
10311 :WAIT A MAXIMUM 
10312 :0F 50 MSEC FOR 
10313 “XMIT RDY TO SET IN TCSR 
10314 005624 CALL’ TIMER IN <#500,#XMITRDY, TCSR,#SET> 
(3) 005624 010546 MOV R5,-(SP) 
(7) 005626 012745 177777 MOV #SET,-(R5) 
(6) 005632 016745 173426 MOV TCSR,- 
(5) 005636 012745 000200 MOV #XMITRDY,-(RS) 
(4) 005642 012745 000500 MOV #500,-(R5 
(3) 005646 004767 003616 JSR PC, TIMER 
(3) 005652 012605 MOV (SP)+,R5 
315 ;TIMER RETURNS AN ERROR IF BIT DID 
316 NOT MEET CONDITION WITHIN TIME LIMIT 
(6) 
318 
319 
1) 
0 
) 


(4) 612 
at 3 005612 BGNSUB 


C 6 
MAINDEC=Z7-CNDVA~A MACY11 30(1046) 16=DEC-82 15:13 PAGE 177-1 


‘CNDVAA.P11 —- 16=DEC=82 15:12 125 TEST THAT XMIT RDY = TCSR 7 = CLEARS SEQ 0067 
10325 : CHECK IMMEDIATELY THAT XMITRDY IS CLEAR 
| 10326 t AND THEN WAIT FOR IT TO SET 
10328 sSEND SECOND CHARACTER 
10329 005666 LET @TBUF :B= #0 
(4) 005666 105077 173376 CLRB = aTBUF 
/ 10330 005672 000240 NOP ; GIVE IT TIME TO CLEAR 
| 10331 ¢ XMITRDY SHOULD HAVE CLEARED UPON 
10332 RECEIPT OF A CHARACTER 
| 10333 005674 IF #XMITRDY SETIN @TCSR THEN 
/ (6) «005674 032777 000200 173362 BIT #XMITRDY,aTCSR 
/ (9) 005702 007401 BEQ $110 
10334 : XMITRDY DID NOT CLEAR IN TCSR 
10335 005704 ERRHRD 67, ,DIDNOT 
(1) 005704 104067 ERROR 67 
10336 005706 ENDIF 
(4) 005706 $110: 
10337 
10338 sWAIT A MAXIMUM 
10339 OF 50M FOR 
10340 :XMIT apy 0 SET IN TCSR 
10341 005706 CALL’ TIMER IN vP500 SAMI TROY, TCSR.#SET> 
(3) 005706 010546 _ MOV R5S,-(SP) 
(7) 005710 012745 177777 MOV #SET,-(R5) 
(6) 005714 016745 173344 MOV TCSR,=(R5) 
(5) 005720 012745 000200 MOV #XMITRDY,-(R5) 
(4) 005724 012745 000500 MOV #500,-(R5) 
(3) 005730 004767 003534 JSR PC, TIMER 
(3) 005734 012605 MOV (SP)+,R5 
10342 005736 IF ERROR THEN 
(6) 005736 103001 BCC $111 
10343 :XMIT RDY DID NOT SET IN TCSR 
10344 005740 ERRHRD 70,,DIDNOT 
(1) 005740 104070 ERROR 70 
10345 005742 ENDIF 
(4) 005742 $111: 
10346 005742 ENDSUB 
10347 005742 ENDTST 


— 


(6) 006044 032777 000200 173206 BIT #RCVRDONE ,ARCSR 
(9) 006052 001401 BEQ $113 


MAINDEC-Z72=CNDVA=A MACY11 30(1046) 16-DEC-82 15:13 PAGE 178 
CNDVAA.F11 16-DEC-82 15:12 T25 TEST THAT XMIT RDY = TCSR 7 = CLEARS SEQ 0068 
10354 FERRARA REAR EERE RE ETRE REE HEAAEEEAEAAEREEAERREE HERE EERE 
10359 Seeeeeeeeeeeeeeeeeeeeeeeeeedeetenarenteeeneeeteneeeeeeeeeeeeeees 
(3) ; FEST 26 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) 
(4) 7* RESULTS IN RCVRDONE SETTING ines A REASONABLE AMOUNT OF TIME 
(4) 3* AND THAT RESET CLEARS THE BIT 
(3) OTT TTTTTITE TILE TELLER TET TTT TTT TTT TTT TTT TTT TTL TTT T TTT 
(2) 005742 000004 18126: SCOPE 
| (1) 005744 012767 900010 173206 MOV #10,$TIMES 3:D0 10 ITERATIONS 
10352 005752 012767 000026 173220 MOV #26,$TESTN 33;SET TEST NUMBER IN APT MAIL BOX 
, 10365 SET THE MAINTENANCE BIT 
| 10366 005760 LET aTcsk := aTCSR SET.BY #MAINT 
10867 005760 052777 000004 173276 BIS #MAINT,@TCSR 
| 10368 005766 BGNSUB 
(5) 005766 012767 005774 173114 MOV #64$,SLPERR 
i 3; SEND A CHARACTER AND LET IT WRAP AROUND 
10371 005774 _LET @TBUF :B= 40 
10992 005774 105077 173270 CLRB aTBuF 
10373 3; WAIT A MAXIMUM OF 50 MSEC 
Ht ie 3; FOR RCVR DONE TO SET IN 
10376 006000 CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 
(3) 006000 Bh eng | MCV R5,-( 
(7) 006002 012745 177777 MOV #SET, seR5) 
(6) 006006 016745 173246 MOV RCSR,-(R5) 
(5) 006012 012745 000200 MOV PRCVRDONE.~(RS) 
(4) 006016 012745 000500 MOV #500,-(R5) 
(3) 006022 004767 003442 JSR PC,TIMER 
10977 006026 012605 MOV (SP)+,R5 
10378 sDION'T SET IN TIME 
10379 006030 IF .ERROR THEN 
(6) 006030 103001 BCC $112 
10380 ; RCVRDONE DID NOT SET IN RCSR 
10381 006032 ERRERD 71,,DIDNOT 
(1) 006032 104071 ERROR 71 
10382 006034 ENDIF 
(4) 006034 $112: 
10383 
0384 006034 ENDSUB 
10385 
| 10386 006034 BGNSUB 
(5) 006034 012767 006042 173046 MOV #64$, SLPERR 
10387 ; NOW THAT IT IS SET SEE IF IT = * RESET 
10388 ; THIS ALSO WILL CLEAR THE MAINT. BIT 
10389 006042 BRESET 
10999 006 000005 RESET 
10391 006044 IF #RCVRDONE SETIN @RCSR THEN 
| 
| 


pom ae ee ee eC 


‘ 


MACY11 30(1046) 


MAINDEC=Z7=CNDVA=A 
CNDVAA.F11 16=DEC=82 15:12 
10392 
10393 006054 
(1) 006054 104072 
10394 006056 


16=DEC-82 15:13 PAGE 178-1 
726 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) 


RCVRDONE DID NOT RESET IN RCSR. 
ERRHRD 72.,DIDNOT 


ENDIF 


ENDSUB 
ENDTST 


ERROR 72 
$113: 


SEQ 0069 


MAINDEC=27=CNDVA=A MACY11 30(1046) 16=DEC-82 15:13 PAGE 179 
CNDVAA.P11 16=DEC=82 15:12 126 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) SEQ 0070 
1 
bts | FF RRA AA AREER AAA EAE REEE EEE EER EREEAEREEAAARAREAAAAEEEEEEEEEAEKEREEE 
10404 FFARR REAR TEA E AEH ER AERA EEAEAEAEAREREEEEKEEEEREEEEEEEHEEE 
(3) S*TEST 27 TEST THAT RCVRDONE IS CLEARED BY READING RBUF 
se teeeeeeeeees RETAKE AAETEAEATAEEAAAAAARERAEAAEREREEARAERERAEAREERE 
006056 000004 1127: SCOPE 
006060 012767 000010 173072 MOV #10, STIMES 3:00 10 ITERATIONS 
; 006066 012767 000027 173104 MOV #27,$TESTN t:SET TEST NUMBER IN APT MAIL BOX 
1 4 : SET MAINT. BIT 
1 006074 LET aTCSR := @TCSR SET.BY #MAINT 
| 006074 052777 000004 173162 BIS #MAINT,aTCSR 
1 006102 BGNSUB 
006102 012767 006110 173000 MOV #64$,$LPERR 


; OUTPUT A CHARACTER WITH MAINTENANCE 
; SET, AND WAIT FOR XMITRDY TO SET. 


3; OUTPUT A CHARACTER 
006110 LET @TBUF :B= #0 
006110 


105077 173154 CLRB aTBUF 
; WAIT MAXIMUM OF 500 MSEC 
: FOR RCVRDONE TO SET IN 


s R 
CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 


a 4 2 ss 


R..RR~~RR~RRKRKRRRK~R~RR~RKK~~~.~~~RRRR~RRRRR~K~RRR~~~ ~~ 


114 
006114 010546 MOV R5,-(SP) 
006116 012745 177777 MOV #SET,-(R5) 
006122 016745 173132 MCV RCSR_=(R5) 
006126 012745 000200 MOV #RCVRDONE ,-(R5) 
006132 012745 000500 MOV #500,-(R5) 
006136 004767 003326 JSR PC, TIMER 
006142 012605 MOV (SP)+,R5 
1 : DID IT BECAME READY? 
1 006144 seas IF ERROR THEN 
1 sRCVRDONE DID NOT SET IN RCSR 
1 006146 ERRHRD 73,, DIDNOT 
006146 104073 ERROR 73 
1 006150 ENDIF 
006150 $114: 
006150 ENDSUB 


WOON~O~ US YWINY Ye Ye eevee BOO D~Y NOUSWWYN~ 2“OUY Yew wv 


: NOW THAT IT IS SET LETS SEE IF READING THE 
; BUFFER CLEARS RCVRDONE. 


006150 cer GREAR_SUEFER 
006150 117700 173106 MOVB — ARBUF , RO - 


me ed a ed ed ed 
~wWN 


006154 
006154 032777 000200 173076 BIT #RCVRDONE ,ARCSR 
006162 001401 BEQ $115 


IF #RCVRDONE SETIN @RCSR THEN 


wel 


sRCVRDONE DID NOT CLEAR IN RCSR 
006164 ERRHRD 74,DIDNOT 
006164 104074 ERROR 74 


006166 ENDIF 


—_—- 
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(4) 006166 
10439 006166 
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TEST THAT RCVRDONE IS CLEARED BY READING RBUF 


ENDTST 


ee 
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006166 000004 


006170 012767 
006176 012767 


—— 
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04 032767 
Boosie 001404 
006214 012767 

22 000500 


ww Oww ONO www vewuw 
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(4) 006232 012700 
(4) 006236 005001 


68 
(4) 006240 105077 


(6) 006244 032777 
(9) 006252 001403 


(4) 006254 012700 
(4) 006260 000401 


| C2) 006224 052777 
10462 006232 
62 
(7) 006262 005201 
64 
| 


MACY11 30(1046) 48 
T2 


15:12 


000010 
000030 


000001 


000001 


000004 
000000 


173024 


004000 


177777 


177777 
000124 


000116 


172762 
172774 


173002 


172736 


173032 


173006 
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15:13 PAGE 180 
TEST THAT RCVRDONE IS CLEARED BY READING RBUF 


FERRARA AA AAA AAAAAAAAAAE TEE EE AEE AEAAEAREREAAAEREIREREERE AREA REEEE 
REAR AAAEAEAEAREEREAARETEREREEAAAARAAAREAAAEEAEEEAAAEREEEAETEEE 


a 
:* 


$116: 


$117: 


$120: 


$121: 


$122: 


S*TEST 30 


SCOPE 


MOV 
MOV 


BIT 
BEQ 


MOV 
BR 


TEST THAT RCVRACT = RCSR 11 = SETS 
WHEN A START BIT IS RECEIVED_AND 
CLEARS WHEN RCVRDONE = RCSR 7 = SETS 


REAR EEAAEAEAEEEAEEAAEEAAAEEAEEAAAAAAAAERARAAARAEEEAEEAAEEEEEE 


1$130: 


#10,$TIMES 3;D0 10 ITERATIONS 
#30,$TESTN 33;SET TEST NUMBER IN APT MAIL BOX 


; THIS TEST IS ‘BREAK OR HALT’ SINSATIVE. 
IF #APTENV SETIN SENV THEN 


#APTENV, SENV 
$116 
EXIT TEST 
#1,$TIMES 
TST31 szzEXIT THIS TEST 
ENDIF 
LET @TCS® := a@ICSR SET.BY #MAINT 
#MAINT,@TCSR ; 
LET RO := @#CLR 
#CLR,RO 
LET R1 := #0 
R1 


;LOAD A CHARACTER INTO TBUF 
WAIT FOR RCVRACT TO SET 


SEND A_CHARACTER 
LET aTBUF :B= #0 


aTBur 
REPEAT 
IF #RCVRACT SETIN @RCSR THEN 
#RCVRACT,@RCSR 
$120 
LET RO := #SET 
#SET,RO 
ELSE 
$121 
LET RI := RT + #1 
R1 
ENDIF 
UNTIL RO EQ #SET OR R1 HI MAX 
RO, #SET 
$122 
R1,MAX 
$117 
IF R1 HI MAX THEN 
R1,MAX 
$123 


SEQ 0072 


MACY11 30(1046) 


16=DEC-82 15:12 


MAINDEC=22=CNDVA=A 
CNDVAA.P11 
10477 
10478 
10479 006306 
(1) 006306 104075 
10480 006310 
(4) 006310 017700 
10481 006314 
(5) 006314 012767 
(3) 006322 000420 
10482 006324 
(4) 006394 
10483 
18684 
10485 
10686 
10487 
10488 
10489 006324 
(4) 006324 
 (@) 006324 032777 
| 99), 006382 001416 
10491 006334 
(6) 006334 032777 
| (9) 006342 001411 
| 10492 006344 
(6) 006344 032777 
(9) 006352 001405 
10493 
| 10494 
10495 006354 
(1) 006354 104076 
10496 
10297 00635 
(5) 006356 012767 
(3) 006364 000417 
10498 006366 
(4) 006366 
10499 006366 
(4) 0063 
10500 006366 
(4) 006366 000756 
(3) 006370 
10501 
10502 
10503 006370 
(6) 006370 032777 
| sofa, 006876 001001 
19505 006400 
roids, 006400 104077 
10507 006402 
(4) 006402 
10508 
10509 


172746 
000001 


004000 


000200 


004000 


000001 


000200 


172636 


172726 


172716 


172706 


172574 


172662 


1 
3 


$123: 


$124: 


$127: 
$126: 


$125: 


$130: 


6-DEC-82 
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TEST THAT RCVRACT = RCSR 11 = SETS 


ERROR 
MOV 


MOV 
BR 


BIT 
BNE 


ERROR 


s1T NEVER SET 
“RCVRACT DID NOT SET IN RCSR. 
ERRHRD 75,, DIDNOT 


75 
LET RO := @RBUF ; CLEAR BUFFER 
@RBUF ,RO 
EXIT TEST 
#1, $TIMES 
TST31 srgEXIT THIS TEST 
ENDIF 
sCHECK FOR TIMING OF RCVRACT. CLEARING 
‘VS RCVRDONE SETTING 
WHILE #RCVRACT SETIN @RCSR DO 
#RCVRACT,@RCSR 
$125 
IF #RCVRDONE SETIN @RCSR THEN 
#RCVRDONE ,ARCSR 
IF #RCVRACT SETIN @RCSR THEN 
#RCVRACT,@RCSR 
$127 
i: RCVRDONE AND RCVRACT 
¥ ERRHRD 76, DONEACT 
sNO USE CONTINUING 
EXIT TST 
#1, STIMES 
TST31 sz2EXIT THIS TEST 
ENDIF 
ENDIF 
ENDDO 
$124 
sRCVRACT = 0 NOW. 
IF #RCVRDONE NOTSETIN @RCSR THEN 
#RCVRDONE ,aRCSR 
:RCVRDONE DID NOT SET IN RCSR 
oe ERRHRD 77,,DIDNOT 


>SET IT BACK. 
ENDIF 


TEST THAT READING THE RECEIVER 
sBUFFER CLEARS RCVRDONE 


MAINDEC=22-CNDVA-A 
CNDVAA.F11 16-DEC=82 15:12 
10510 
10511 
10512 
10513 006402 
(4) 006402 017700 172654 
10514 
10515 006406 
(6) 006406 032777 000200 172644 
(9) 006414 001401 
10516 
10517 006416 
(1) 006416 104100 
10518 006420 
(4) 006420 
10519 
10520 006420 
(3) 006420 000401 
10521 006422 070000 
10522 
10523 006424 
10524 


$131: 


J. 6 
MACY11 30(1046) DS ie | 15:13 PAGE 180-2 


TEST THAT RCVRACT = RCSR 11 = SETS 


MOV @RBUF ,RO 


BIT #RCVRDONE ,ARCSR 
BEQ $131 


ERROR 100 
BR TST31 
MAX: 70000 


EX! 
secEXIT THI 


ENDTST 


nn 


:READ CHAR. 
LET RO := @RBUF 


IF #RCVRDONE SETIN @RCSR THEN 
;RCVRDONE DID NOT CLEAR IN RCSR 


ERRHRD 1C0,,DIDNOT 
ENDIF 


SEQ 0074 


is 
9 A | at MACY11 30(1046) a te 15:13 PAGE 181 


NDVAA.P11 16=DEC=82 15:12 


TEST THAT RCVRACT = RCSR 11 = SETS 


10526 
10531 
1053¢ 
1053 33 
(3) S*TEST 31 
(2) 006424 000004 T$131: SCOPE 
/ (1) 006426 ~012767 000010 172524 MOV 
| 1083 006434 012767 000031 172536 MOV 
' 10539 006442 
| (5) 006442 012767 006450 172440 MOV 
' 10540 
10541 
| 10542 
| 10543 
10544 
10545 006450 
| (4) 006450 105077 172614 CLRB 
| 10546 
10547 006454 
(4) 006454 010546 MOV 
(5) 006456 012745 000310 MOV 
(4) 006462 004767 003260 JSR 
(4) 006466 012605 MOV 
10548 
10549 
10550 006470 
1082? 006470 105077 172574 CLRB 
10552 006474 
(4) 006474 01054 MOV 
(5) 006476 012745 000310 MOV 
(4) 006502 004767 003240 JSR 
(4) 506 012605 MOV 
10553 
10554 
10555 006510 
(4) 006510 017704 172546 MOV 
10556 
10557 
10558 006514 
(6) 006514 032704 040000 BIT 
(9) 006520 001005 BNE 
10559 
10560 522 
(1) 006522 104101 ERROR 
10561 
10562 
10563 006524 
(5) 006524 012767 000001 172426 MOV 
(3) 006532 000456 BR 
10564 006534 
(4) 006534 $132: 
10565 006534 
: 
a 


FERRARA RARER AAEEEEE ATE EE ERE EERE EEEAE EEA EEEEREAEEREEA EERE a 
© ERE AAEEEAEEAAAAEEAE AEE EEEEEAAEAAERAAAAEEEAEREEEEAREREREEEEE 


TEST THE OVERRUN BIT = RBUF 14 


#10,STIMES 
#31,$TESTN 


#64$ ,SLPERR 


SEARO RA AA RAE AER AER AEE EERE EERE EEEAEAEAAAEEREEEARAREERAKEEEK KK E EES 


33D0_10 ITERATIONS 
3;SET TEST NUMBER IN APT. MAIL BOX 


BGNSUB 


OUTPUT 2 CHARACTERS WITH 
AMPLE DELAYS BETWEEN FOR RECEPTION. 
THIS SHOULD AN CAUSE OVERRUN ERROR. 


aTBuUF 
R5,-(SP) 
#200. ,-(R5) 
PC,WAIT 
(SP)+,R5 
aTBuUF 
RS,-(SP) 
#200. ,-(R5) 
PC WAIT 
(SP)+,R5 
@RBUF ,R4 
#ORERR,R4 
$132 


101 


#1 BT Ines 
TST32 


;OUTPUT 1 CHARACTER 
LET aTBUF :B= #0 


3GO_AWAY FOR 200. M SEC 
WAITMS 200. 


“OUTPUT 2ND CHARACTER 
LET @TBUF :B= 40 


;LET OVERRUN HAPPEN 
WAITMS 200. 


READ BUFFER AND ERROR BITS 
LET R4 := @RBUF 


:1T DIDN'T SET 

IF #ORERR NOTSETIN R4& THEN 
s;ORERR DID NOT SET IN RBUF 
ERRHRD 101,,DIDNOT 
:NO Use CowouniNs ERRORS 


EXIT TS 


2cEXIT THIS TEST 
ENDIF 


ENDSUB 


SEQ 0075 
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10566 
10567 :NOW SEE IF ERROR BIT SET WITH OVERRUN ERROR: 
10568 006534 BGNSUB 
(5) 006534 012767 006542 172346 MoV #64$,$LPERR 
10569 006542 IF #ERROR NOTSETIN R4 THEN 
(6) 006542 032704 100000 BIT #ERROR,R4 
| 10833 006546 001005 BNE $133 
10571 ERROR DID NOT SET IN RBUF 
/ 10572 006550 ERRHRD 102,,DIDNOT 
G1 006550 104102 ERROR 102 
' 10573 
| 10574 WHEN ORERR SET. 
10575 “GET OUT NOW. 
| 10576 006552 EXIT TST 
(5) 006552 012767 000001 172400 MoV #1, $TIMES 
| (3) 006560 000443 BR TST32 sssEXIT THIS TEST 
| 10577 006562 ENDIF 
| (4) 006562 $133: 
| 10578 006562 ENDSUB 
10579 
10580 006562 BGNSUB 
(5) 006562 012767 006570 172320 MoV #64$,$LPERR 
10981 [CHECK REAL RBUF TO SEE IF ORERR IS STILL SET. 
10583 006570 IF #ORERR NOTSETIN @RBUF THEN 
(6) 006570 032777 040000 172464 BIT #ORERR,@RBUF 
noisy), 900576 d07002 BNE $134 
10585 SREADING RBUF CLEARED ORERR. 
10586 006600 ERRHRD 103, 1TCLRED 
(1) 006600 104103 ERROR 103 
10587 sSKIP REST OF TEST 
10588 006602 EXIT 
(3) 006602 000432 BR TST32 srsEXIT THIS TEST 
10589 006604 ENDIF 
(4) 006604 $134: 
006604 ENDSUB 
10591 
10592 006604 BGNSUB 
(5) 006604 012767 006612 172276 MCV #64$,SLPERR 
10995 ‘NOW SEE If THEY CLEAR WHEN ANOTHER CHAR. IS RECEIVED 
10595 SSEND A CHARACTER AROUND. 
10596 006612 LET aTBUF :B= #0 
(4) 006612 105077 172452 CLRB = @TBUF 
10597 sLET IT CIRCULATE 
10598 006616 WAITMS 200. 
(4) 006616 010546 MOV (SP) 
(5) 006620 012745 000310 MOV #360. ~(R5) 
(4) 006624 004767 003116 JSR WAIT 
og, 906630 012605 WV (SPD EARS 
| 10600 006632 IF #ORERR SETIN @RBUF THEN 
(6) 006632 032777 040000 172422 BIT #ORERR,@RBUF 
| (9) 006640 001405 BEQ $135 
i 
! 


6 
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/ 10601 -ORERR DID NOT CLEAR IN RBUF 
- 10602 006642 ERRHRD 104, ,DIDNOT 
/ (1) 006642 104104 ERROR 104 


| 10604 :*AFTER RECEIVING ANOTHER CHAR 
| ' ‘SKIP AROUND REST 

/ 10606 006644 EXIT TST 

' (5) 006644 012767 000001 172306 MOV #1,$TIMES 

(3) 006652 000406 BR TST32 rrcEXIT THIS TEST 


(4) 006654 $135: 
10609 006654 IF #ERROR SETIN @RBUF THEN 
(6) 006654 032777 100000 172400 BIT #ERROR , @RBUF 

006662 001401 BEQ $136 
ERROR DID NOT ae IN RBUF 
006664 ERRHRD 105, ,DIDNOT 
006664 104105 ERROR 105 

ENDIF 
ENDSUB 

EXiT 

000400 BR TST32 zesEXIT THIS TEST 


e£ 
006670 ENDTST 


$136: 


FRRA~ARR~FR~SE~ 
— st et Wt fo tO 
CONA~YUSYeWN~ Ow 

So 

& 

oa 

an 

Oo 


—— a —— —— 
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10620 
| 106 6 FRRRAAAAR AERA A AERA E TERE RA AEE REREAAE REA AEAEAER EERE ATER AEE ES 
i 10632 TeRReeeeeeeeeeeeeeeeeeeeeeeeeereeeeteeneeneneeeeetereeeneeeenes 
on jETEST 32 PROGRAMMABLE BAUD RATE TEST 
(4) ie TEST AT ALL SPEEDS AVAILABLE 
(4) ie A COMPARISON WILL BE MADE TO SEE 
(4) i* IF NEW TIME 1S LESS THAN PREVIOUS. 
(3) b+ ggg +> aaah atthe mia lata anata eerie a niacin ae 
(2) 006670 000004 1§132: SCOPE 
(1) 006672 012767 000010 172260 MOV #10,$TIMES $200 10 ITERATIONS 
(2) 006700 012767 000032 172272 MOV #32,$TESTN *SET TEST NUMBER IN APT MAIL BOX 
10637 006706 IF #PBR NOT SETIN $USWR THEN 
(6) 006706 032767 000200 172304 BIT #PBR,SUSWR 
(9) 006714 001004 BNE $137 
10638 006716 EXIT TST 
(5) 006716 012767 000001 172234 MOV “1 SSTIMES 
(3) 006724 000552 BR $133 zrEXIT THIS TEST 
10639 006726 ENDIF 
(4) $137: 
10640 ; THIS TEST IS “BREAK OR HALT’ SINSATIVE. 
10641 006726 IF #APTENV SETIN SENV THEN 
(6) 006726 032767 000001 172260 BIT #APTENV, SENV 
(9) 006734 001404 BEQ $140 
10642 006736 3 EXIT TEST 
(5) 006736 012767 000001 172214 MOV “ SSTIMES 
(3) 006744 000542 BR $133 -::EXIT THIS TEST 
10643 006746 ENDIF 
(4) 006746 $140: 
10644 
10645 006746 LET OLD := #1 
(4) 006746 012767 177777 000272 MOV #-1,0LD 
10646 006754 LET OLD+2 := #-1 
(4) 006754 012767 177777 000266 MOV #-1,0LD+2 
10647 006762 LET @TCSR := @TCSR SET.BY #MAINT 
(7) 006762 052777 000004 172274 BIS #MAINT,a@TCSR 
10648 EACH BAUD RATE 
10649 006770 INCR R3 iRon #0 TO #15. BY #1 
(4) 006770 005003 CLR R3 
(5) 006772 000401 BR $141 
(4) 006774 $142: 
(8) 006774 005203 INC R3 
(5) 006776 $141: 
(5) 006776 020327 000017 CMP R3,#15. 
(7) 007002 003060 BGT $143 
10650 007004 LET RO := @RBUF 
(4) 007004 017700 172252 MOV @RBUF ,RO 
10651 sCHANGE BAUDE RATE 
10652 007010 LET @TCSRHI :B= RATES(R3) 
(4) 007010 116377 007170 172250 MOVB _—RATES(R3), aTCSRHI 
10653 sFLAG 
10654 007016 LET BIT := #0 
(4) 007016 005002 CLR BIT 
10655 gouTRUT THE CHARACTER 
10656 007020 LET aTBUF := #0 


2 


col eee ee ee tt CL LL LLL LE LLL LLL LLL LLL LLL 


e, 
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CNDVAA.P11 16=DEC=82 15:12 13 OGRAMMABLE BAUD RATE TEST SEQ 0079 
(4) 007020 005077 172244 CLR aTBuF 
10657 s INITIALIZE COUNTER 
10658 007024 LET NEW := #0 
(4) 007024 005067 000212 CLR NEW 
10659 007030 LET NEW+2 := 
(4) 007030 005067 000210 CLR NEW+2 
10660 007034 WHILE BIT EQ #0 DO 
(4) 007034 $144: 
(6) 007034 005702 TST BIT 
(9) 007036 001014 BNE $145 
| 10661 007040 IF #RCVRDONE SETIN @RCSR THEN 
(6) 007040 032777 000200 172212 BIT #RCVRDONE ,A@RCSR 
(9) 007046 001403 REQ $146 
10662 ;DONE = ITS READY 
- 10663 007050 LET BIT := #1 
(4) 007050 012702 000001 MOV #1,BIT 
10664 007054 ELSE 
(4) 007056 000404 BR $147 
(3) 007056 $146: 
10665 ZOTHERWISE-INCREMENT TIME 
10666 007056 LET NEW := NEW + #1 
(7) 007056 005267 000160 INC NEW 
10667 007062 LET NEW+2 := NEW+2 + CARRY 
(7) 007062 005567 000156 ADC NEW+2 
10668 007066 ENDIF 
(4) 007066 $147: 
9 :SIGNALS DONE 
10670 007066 ENDDO 
(4) 007066 000762 ER $144 
1062) 007070 $145: 
10672 007070 IF NEW+2 LO OLD+2 THEN 
(6) 007070 026767 000150 000152 CMP NEW+2,OLD+2 
(9) 007076 103001 BHIS $150 
10673 3; OK 
10674 007100 ELSE 
(4) 007100 000412 BR $151 
(3) 007102 $150: 
10675 NEW+2 >= OLD+2 
10676 007102 if NEW#2 EO Witte) AND NEW LO OLD THEN 
(6) 007102 026767 000136 000140 CMP NEW+2,OLD+2 
(9) 007110 001005 BNE $152 
(6) 007112 026767 000124 000126 CMP NEW, OLD 
(9) 007120 103001 BHIS $152 
10677 0K 
10678 007122 ELSE 
(4) 007122 000401 BR $153 
(3) 007124 $152: 
10679 ZNEW+2 > OLD+2 OR 
10680 : (NEW#2 = OLD+2 AND 
10681 NEW LD) 
10682 “BAUD RAT E DIDN'T CHANGE 
10683 007124 ERRHRD 126. BAUDRATE 
(1) 007124 104126 ERROR 126 
10684 007126 ENDIF 
(4) 007126 $153: 
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/ 10685 007126 ENDIF 
(4) 007126 $151: 
10686 ; UPDATE OLD TIME 
- 10687 007126 LET OLD := NEW 
| (4) 007126 016767 000110 000112 MOV NEW,OLD 
' 10688 007134 LET OLD+¢2 := NEW+2 
? 082 007134 016767 000104 000106 MOV NEW+2,OLD+2 
10690 007142 ENDINC ;BAUD RATE 
(4) 007142 000714 BR $142 
/ (3) 007144 $143: 
10691 007144 LET R3 :B= $SUSWR+1 AND #17 : PUT BAUD BACK 
(4) 007144 116703 172051 MOVB $USWR+1,R3 
(7) 007150 110346 MOVB = R3_=(SP5 
(7) 007152 142716 000017 BICB =s_-« #17, (SP) 
(7) 007156 142603 BICB = (SP) +, R3 
10692 007160 LET @TCSRHI :B= RATES(R3) : LIKE HE WANTED IT 
1003) 0071 116377 007170 172100 MOVB _—RATES(R3),aTCSRHI 
10694 007166 EXIT SKIP TABLE 
1082 007166 000431 BR TST33 sssEXIT THIS TEST 
10696 007170 RATES: ;:A TABLE OF THE ACTUAL BYTES TO MOVE INTO THE 
10697 s UPPER evTe OF XCSR FOR EACH BAUD RATE 
10698 :* NOTE:: THE VALUE INDICATED. IN THE COLUMN ‘OFFSET 
10699 pee INTO TABLE’ CAN BE PLACED INTO BITS<11:8> 
10700 pee OF LOCATION "$USWR' TO CAUSE THE CORROSPOND ING 
10701 pee BAUD TO BE SELECTED IN THE DLV11-— UPO 
10702 pes COMPLETION OF THIS TEST. 
10704 ; BAUD OFFSET INTO TABLE 
10705 007170 010 ROOSO: .BYTE 010 ; 50 0 
0706 007171 030 ROO70: .BYTE 030 ; 70 1 
10707 007172 050 RO110: .BYTE 050 ; 110 2 
10708 00717 070 RO135: .BYTE 070 : 135 3 
10709 007174 110 RO150: .BY 110 ; 150 4 
10710 007175 130 RO300: .BYTE 130 ; 300 5 
10711 007176 150 RO600: . 150 : 600 a 
10712 007177 170 RO200: .BYTE 170 ; 1200 7 
10713 007200 210 R1800: .BYTE 210 ; 1800 10 
10714 007201 230 R2000: .BYTE 230 ; 2000 ~3=«-'11 
10715 00 250 R2400: .BYTE 250 ; 2400 12 
10716 007203 270 R3600: .BYTE 270 : 3600 13 
10717 007204 310 R4800: .BYTE 310 ; 4800 14 
10718 007205 330 7200: .BYTE 330 ; 7200 3=«-:'15 
10719 007206 350 9600: .BYTE 350 ; 9600 16 
10720 007207 370 870000: -BYTE 370 ; 19200 17 
10722 007210 040502 042125 051040 BAUDRATE: .ASCIZ /BAUD RATE DIDN'T CHANGE. / 
007216 052101 020105 044504 
007224 047104 052047 041440 
007232 040510 043516 027105 
007240 0 
10723 007242 EVEN 
10724 007242 000000 000000 NEW: 


0, 
10725 007246 000000 000000 OLD: 0, 
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— 10726 007252 ENDTST 
' 10727 


AE 


‘eames 


MAINDEC=ZZ7=CNDVA=A 
CNDVAA.P11 


10731 
10 


007252 
007254 
007262 


007270 
007270 


007274 
007274 


‘007330 


007330 


007336 


007350 
007350 


007356 
007364 
007370 


007372 


000004 


012767 
012767 


005067 


016703 


012746 
012746 
000002 


MACY11 30(1046) 
16=DEC=82 15:12 


171756 
000004 
900300 
007330 
000100 


000000 
007350 


000100 


000310 
002356 


171560 


171726 


171706 
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3 PROGRAMMABLE BAUD RATE TEST 


PRRRRAAAAAAAAAAAAAA KAT TE RET Ae eee eee Re eeeeeeeeeeeeeeneneeeeeee 
[aesenyqrenpanrasuseceseverseeensseanesscatasssinnneranny nan er 
SATEST 33 orerent INTERRUPT LOGIC T 

* LOGICALLLY THIS IS 4 SEPARATE TEST S 

* A) DOES TRANSAITTER INTERRUPT LOGIC WORK 

* B) AT PRIORITY OF 0 

* C) AND ONLY ON NCE 

* D) BUT NOT WITH INTERRUPT ENABLE CLEAR 

i 


=PMPAAARAAAARLALALALARARALALAAALAAAAAALELALALALAL ALAS EASES RAR A ADA SS 


133: SCOPE 
MOV #10,STIMES 3:00 10 ITERATIONS 
MOV #33,$TESTN 33SET TEST NUMBER IN APT MAIL 


BOX 
2CL EM ‘INTERRUPT OCCURED’ FLAG 
LET INTFLAG := #0 
CLR INTFLAG 


GET VECTOR ADDRESS 


LET R3 := DLVEC 
MOV DLVEC,R3 
sFOR THE TRANSMITTER 
LET R3 := R3 + #4 


ADD #4 ,R3 


SEQ 0082 


SET VECTOR TO POINT TO TRANS.SRV AT PRI 


SETVEC rs, MINTSRV, #PR6 
MOV R1,-(SP) 


MCV R3,R 
MOV #INTSRV,(R1)+ 
MOV #PR6,(R1) 


MOV (SP)+,R1 
MOV #64$ ,SLPERR 


BGNSUB 


:CLEAR INTERRUPT ENABLE 
LET @TCSR := @TCSR CLR.BY #XMITIE 
BIC #XMITIE,@TCSR 


;SET IT T0 0 
MOV #PRO,-(SP) 3;PUT NEW PS ON STACK 
MOV #65$,-(SP) 7sPUT NEW PC ON STACK 
RTI 7;POP NEW PC AND PS 


65$: 


sNOW SET I.E. BIT 
LET @TCSR := @TCSR SET.BY #XMITIE 
BIS #XMITIE ,@TCSR 


;LET INTERRUPT HAVE TIME TO OCCUR 


WAITMS 200. 


MOV (SP)+,R5 
sD D ee 1 ——" OCCUR 


I 
IF INTFLAG NE # 


F ? 
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(6) 007372 026727 002436 000001 CMP INTFLAG, #1 
(9) 007400 001406 BEQ $154 
10781 NO = WAS IT 0 OR MORE THAN ONCE 
10782 007402 if INTFLAG EQ #0 THEN 
(6) 007402 005767 002426 TST INTFLAG 
(9) 007406 001002 BNE $155 
10783 ; TRANSMITTER DID NOT INTERRUPT IN TIME 
10784 007410 ERRHRD 106,,DIDNO 
(1) 007410 «104106 ERROR 106 
/ 10785 007412 ELSE 
(4) 007412 000401 BR $156 
(3) 007414 $155: 
10786 s TWICE 
10787 S TRANSMITTER INTERRUPTED TWICE 
10788 007414 ERRHRD 107,, TWICE 
/ (1) 007414 104107 ERROR 107 
10789 007416 ENDIF 
| (4) 007416 $156: 
| 10790 007416 ENDIF 
(4) 007416 $154: 
10791 007416 ENDSUB 
10792 ; INTERRUPT WITHOUT INTERRUPT ENABLE SET 
10793 007416 ; BGNSUB 
(5) 007416 012767 007424 171464 MOV #64$,$LPERR 
10794 :CLEAR "INTERRUPT OCCURED’ FLAG 
| 10795 007424 LET INTFLAG := #0 
(4) 007424 005067 002404 CLR INTFLAG 
10796 *CLEAR INTERRUPT ENABLE 
10797 007430 LET @TCSR := @TCSR CLR.BY #XMITIE 
(7) 007430 042777 000100 171626 BIC #XMITIE,aTCSR 
10798 ;NO INTERRUPTS SHOULD OCCUR. 
10803 007436 012746 000000 MOV #PRO,-(SP) ::PUT NEW PS ON STACK 
(1) 007442 012746 007450 MOV #65$.-(SP) ::PUT NEW PC ON STACK 
(1) 007446 000002 RTI ::POP NEW PC AND PS 
(1) 007450 65$: 
10808 sDARE IT TO HAPPEN 
10809 007450 WAITMS 2 
(4) 007450 010546 MOV RS,-(SP) 
(5) 007452 012745 000002 MOV #2. -(R5) 
(4) 007456 004767 002264 JSR PC WAIT 
(4) 007462 012605 MOV (SP)+,R5 
10810 007464 IF INTFLAG NE #0 THEN 
(6) 007464 005767 002344 TST INTFLAG 
(9) 007470 001401 BEQ $157 
10811 s INTERRUPT OCCURED WITH I E CLEARED 
10812 007472 ERRHRD 110, NOTENAB 
(1) 007472 104110 ERROR 110 
10813 007474 ENDIF 
(4) 007474 $157: 
10814 007474 BRESET 
(1) 007474 000005 RESET 
10815 007476 ENDSUB 
10816 -RESTORE VECTOR AREA 
10817 007476 CLRVEC Rr3 
(3) 007476 010146 MOV R1,-(SP) s:PUSH R1 ON STACK 
(3) 007500 010246 MOV R2.-(SP) +:PUSH R2 ON STACK 


MAiNDEC=Z72=CNDVA=A MACY11 30(1046) 16=DEC=82 15:13 PAGE 183-2 
CNDVAA.P11 =: 16=DEC=82 15:12 133 TRANSMITTER INTERRUPT LOGIC TEST SEQ 0084 

(5) 007502 012701 000003 MOV = #R3,R1 

(5) 007506 919102 MOV R1,R2 

(8) 007510 062702 000002 ADD #2,R2 

(5) 007514 010221 MOV R2,(R1)+ 

(5) 007516 005011 - CLR (Ri) 

(3) 007520 012602 MOV (SP)+,R2 3sPOP STACK INTO R2 
10433 007522 012601 MOV (SP)+,R1 3:POP STACK INTO R1 
10819 007524 ENDTST 
10820 
10821 
10822 
10823 
10824 


MAINDEC=27=CNDVA=A 
CNDVAA.P11 Ve-DEC~82 1 
10827 
10832 
10838 
(3) 
(4) 
(4) 
(4) 
(3) 
($3 007524 000004 
(1) 007526 012767 
(2) 007534 012767 
10843 
10844 
10845 007542 
(5) 007542 010146 
($5) 007544 016701 
(5S) 007550 012721 
($5) 007554 012711 
(5S) 007560 012601 
10846 
10847 007562 
(5) 007562 012767 
10848 007570 
(4) 007570 005067 
10849 
10850 007574 
(7) 007574 052777 
10851 
10852 007602 
(7) 007602 042777 
10853 
10854 
10859 007610 012746 
(1) 007614 012746 
(1) 007620 00000 
(1) 007622 
10864 
10865 
10866 007622 
(4) 007622 105077 
10867 
10868 
10869 
10870 7626 
(3) 007626 010546 
(7) 007630 012745 
(6) 0076 016745 
(5) 007640 012745 
(4) 007644 012745 
(3) 007650 004767 
(3) 007654 012605 
10871 
10872 007656 
(7) 007656 052777 
10873 


CY11 30(1046) 8 =DEC-82 
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000010 
000034 


171506 
012026 
000300 


007570 


002240 


000004 


000100 


000000 
007622 


171442 


177777 
171420 
000200 
000500 
001614 


000100 


171320 


171462 


171450 


171374 
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TRANSMITTER INTERRUPT LOGIC TEST 


PRRAe AAA eAeeA AHA THERE TAHTHA TAA TAAA AA Te Tee te Hee eee teeeeTeeee 
SReReeeeeeeneeeeeeeeeeeeeeedeteteneteeeeereteneeeeeeeeeeeneeeee 
were Yee INTERRUPT LOGIC TEST 

THIS TEST COVERS ALL OF THE RECEIVER 
SIDE OF THE yo ey LOGIC, BOTH DATASET 


tSTEST 34 


ie 
7* 
:* 
18134: SCOPE 


MOV 
MOV 


65$: 


CLRB 


AND CHARACTER 


#10,S$TIMES 
#34, $TESTN 


R1,=(SP) 
DLVEC,R1 
#INTSRV,(R1)+ 
#PR6,(R1) 


POET ne ont, . : ON TT OE 


33D0_10 ITERATIONS 
33;SET TEST NUMBER IN APT MAIL BOX 
SS ae INTERRUPT OCCURED FLAG 
7SET UP RECEIVER INTER. VECTOR 
SETVEC DLVEC, #INTSRV, #PR6 


(SP)+,R1 
sPRIORITY 0 AND MULTIPLE INTERRUPT TEST.-RCVRIE 
BGNSUB 


#64$ ,SLPERR 
INTFLAG 


#MAINT,aTCSR 
#RCVRIE,GRCSR 


#PRO,-(SP) 
#65$,-(SP) 


aTBUF 


R5,-(SP) 
#SET, =(R5) 
RCSR,=(R5) 
#RCVRDONE ,- (RS) 
#500,-(R55 

PC, TIMER 
(SP)+,R5 


#RCVRIE,@RCSR 


LET INTFLAG := #0 


SET MAINT. BIT 
LET @TCSR := @TCSR SET.BY #MAINT 


sCLEAR INTERRUPTS 
LET @RCSR := @RCSR CLR.BY #RCVRIE 


: CHANGE PRIORITY 
z:PUT NEW PS ON STACK 


33PUT NEW PC ON STACK 
33;POP NEW PC AND PS 


SEND A_CHARACTER 
LET @TBUF :B= #0 


A MAXIMUM 
4 


SEQ 0085 


ET RCSR 
GALL TIMER IN <#500, #RCVRDONE ,RCSR,#SET> 


SET INTERRUPT ENABLE 
LET @RCSR := @RCSR SET.BY #RCVRIE 


LET IT COME IN. 


_ 


— — 
8 


a one | ame 4b 


CNDVAA.P11 


007722 
007722 


007724 
007724 
007726 


007726 


oO 
Se 
Wwe 


an 
Wwe 
Vvww 


So 
$088 


— 

o 

fam 
www 


10888 


007730 
007730 
007736 


(7) 007736 
007744 


0902 007744 


007772 
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026727 
001406 


005767 
001002 


104111 


000401 


104112 


042777 


042777 


012767 
032767 
001004 


012767 
000466 


ears! 30(1046) 


212 


000001 


002050 


171356 


002124 


002114 


000004 


000100 


007752 
020000 


000001 


000001 


171326 


171314 


171136 
171240 


171170 


16=DEC-82 
134 


$161: 


$162: 
$160: 


$163: 


1 ? 
15:13 PAGE 184-1 
RECEIVER INTERRUPT LOGIC TEST 
WAITMS 1 
MOV R5,=(SP) 
MOV #1.=(R5) 
JSR PC; WAIT 
MGV (SP)+,R5 
LET RO := @RBUF ; CLEAR RCVRDONE 
MOV @RBUF ,RO 
:DID HE DO IT RIGHT? 
IF INTFLAG NE #1 THEN 
CMP INTFLAG, #1 
BEQ $160 
:NONE OCCURED 
IF INTFLAG EQ #0 THEN 
TST INTFLAG 
BNE $161 
;RECEIVER DID NOT INTERRUPT IN TIME 
ERRHRD 111,,DIDNOT 
ERROR 111 
s TWICE OR MORE 
ELSE 
BR $162 
;RECEIVER INTERRUPTED TWICE 
ERRHRD 112,, TWICE 
ERROR 112 
ENDIF 
ENDIF 
RESET MAINT. BIT 
LET atcsk := aTCSR CLR.BY #MAINT 
BIC #MAINT,aTCSR 
CLEAR INTERRUPT ENABLE 
LET aRCSR := ARCSR CLR.BY #RCVRIE 
BIC #RCVRIE,aARCSR 
ENDSUB 
:PRIORITY 0 AND MULTIPLE INTERRUPT TEST.-DATAIE 
BGNSUB 
MOV #64$,$LPERR 
IF #CABLE NOTSETIN $SUSWR THEN 
BIT #CABLE ,SUSWR 
BNE $163 
:CAN'T TEST WITHOUT A CABLE 
EXIT TST 
MOV #1,$TIMES 
BR TST35 sszEXIT THIS TEST 
ENDIF 


SEQ 0086 


MAINDEC=Z7-CNDVA=A 


/CNDVAA.P11 16=DEC=82 1 
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NEL BARAALOS 


(7) 010024 


010076 


= 
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ey 
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R 

= 
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042777 


052777 
052777 


010546 


012605 


026727 
001406 


005767 
001002 


104113 


000401 


104114 


042777 


042777 


017704 


aecy 


002036 


000040 


000000 
010016 


000004 


000040 
000004 


000001 
001674 


001754 


001744 


000040 
000004 


171136 
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171254 


171234 


171226 
171220 


000001 


171152 
171144 


J 
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134 RECEIVER INTERRUPT LOGIC TEST 


64$: 


$165: 


$166: 
$164: 


CLR 


INTFLAG 
#DATAIE ,aRCSR 


#PRO,-(SP) 
#64$,-(SP) 


#REQSEND ,ARCSR 


#DATAIE,aRCSR 
#REQSEND ,ARCSR 


R5,-(SP) 
#1,-(R5) 
PC WAIT 
(SP)+,R5 


INTFLAG,#1 
$164 


#DATAIE ,aRCSR 
#REQSEND ,ARCSR 


@DLVEC ,R4 


CLEAR *INTFLAG' 
LET INTFLAG : = #0 


CLEAR INTERRUPTS 
LET @RCSR := @RCSR CLR.BY #DATAIE 


ZCHANGE PRIORITY 
z:PUT NEW PS ON STACK 
::PUT NEW PC ON STACK 
::POP NEW PC AND PS 
LET @RCSR := @RCSR CLR.BY #REQSEND 


3SET INTERRUPT ENABLE 
LET @ORCSR := @RCSR SET.BY #DATAIE 


LET @RCSR := @RCSR SET.BY #REQSEND 


LET IT COME IN. 
WAITMS 1 


DID IT DO IT RIGHT? 
IF INTFLAG NE #1 THEN 


NONE OCCURED 
iF INTFLAG EQ #0 THEN 


zDATAINT DID_NOT INTERRUPT IN TIME 


ERRHRD 113,,DIDNOT 
zs TWICE OR MORE 
ELSE 


3 DATAINT INTERRUPTED TWICE 
ERRHRD 114,, TWICE 


ENDIF 
ENDIF 
LET @RCSR := @RCSR CLR.BY #DATAIE 
LET @RCSR @RCSR CLR.BY #REQSEND 
ENDSUB 
LET R4 := aDLVEC 


SEQ 0087 


---—- oo 


po ae ere re ae ee ee eee + - - eee ee ome 


K_ 7 
/MAINDEC=Z77-CNDVA~A MACY11 30(1046) BS ae: 15:13 PAGE 184-3 


‘CNDVAA.P11 =: 16=DEC=82 15:12 RECEIVER INTERRUPT LOGIC TEST SEQ 0088 
| 10946 010120 CLRVEC_R4 
| 3) 910120 010146 MOV R1,<(SP) :;PUSH R1 ON STACK 
(3) 0101 010246 MOV R2.=(SP) t:PUSH R2 ON STACK 
(5) 010124 012701 000004 MOV #R&,R1 
(5) 010130 010102 MOV R1,R2 
(8) 010132 062702 000002 ADD #2,R2 
(5) 010136 010221 MOV R2,(R1)+ 
(5) 010140 0050171 CLR (Ri) 
(3) 010142 012602 MOV (SP)+,R2 7zPOP STACK INTO R2 
(3) 010144 012601 MOV (SP)+,R1 +:POP STACK INTO R1 
7 010146 ENDTST 


= 
zg 


enema CC CC LL LLL CLL LL LLL LL LL LLL LL LL ALA ALLL A A = 
f 


MALNDEC=22=CNDVA-A 


CNDVAA.P11 16=DEC=82 

10949 

10954 

10958 
(3) 
(4) 
(3) ” 
‘s} 010146 000004 
(1) 010150 012767 
(2) 010156 012767 

10963 

10964 010164 
(7) 010164 052777 

10965 

10966 

10967 

10972 010172 012746 
(1) 010176 012746 
(1) 010202 000002 
(1) 010204 

10977 

10978 010204 
(4) 010204 162705 
(3) 010210 004767 
(4) 010214 012501 

10979 

10980 010216 
(4) 010216 017700 

10981 

10982 

10983 010222 
(4) 010222 005002 
(5) 010224 000401 
(4) 010226 
(8) 010226 005202 
(5) 010230 
(5) 010230 020227 
(7) 010234 003047 

10984 

10985 

10986 

10987 

10988 010236 
(3) 010236 010546 
(7) 010240 012745 
(6) 010244 016745 
(5) 010250 012745 
(4) 010254 012745 
(3) 010260 004767 
(3) 010264 012605 

10989 

10990 

10991 010266 
(4) 010266 110277 

10992 

10993 010272 


MACY11 
15:12 


000001 
000035 
000004 


000000 
010204 
000002 
001432 


171040 


000377 


177777 


001204 


170776 


30(1046) OS eae 15:13 


PAGE 185 
RECEIVER INTERRUPT LOGIC TEST 


FRRRERERAAARERERE RETA EE AAA O TERE AAA AERA RARER REAR RARER ATER EE EEE 
Seeeeeeeeeeeeeeeeeeeeeeeeeredteneeeeeeeeeeneeeeenereneneeeees 


SSTEST 35 TEST ACTUAL DATA TRANSFERED 


;* 


NON-INTERRUPT MAINTENANCE BIT SET 


SRREREEAEEEREREREEEAEREEEEEEEEEEEAAEAAEEAAAAREEEEEEAEEAEEEEEREATEE 


18135: 


171002 
171014 


171072 


64$: 


$170: 
$167: 


SCOPE 
MOV #1, ,STIMES 3;D0_1_ITERATION 
MOV #35, STESTN z3SET TEST NUMBER IN let MAIL BOX 


BIT 
LET atcsk : = @TCSR SET.BY #MAINT 
BIS #MAINT,@TCSR 


scect PRIORITY 


MOV #PRO,-(SP) :;PUT NEW PS ON STACK 
MOV #64$,-(SP) ‘:PUT NEW PC ON STACK 
RTI ::POP NEW PC AND PS 
:GET DATA MASK. 
CALL DATLNG OUT <R1> 
SUB 2,R5 
JSR 4 ;DATLNG 
MOV (R5)+, 
: START CLEAN 
LET RO := @RBUF 
MCV @RBUF ,RO 
L BINARY CHAR. 
INCR R2 fRbh #0 TO #377 BY #1 
CLR R2 
BR $167 
INC R2 
CMP R2,#377 
BGT $171 


z TRANSMIT CHAR IN R2 


CALL TIMER IN <#500,#XMITRDY,TCSR,#SET> 
MOV R5,-(SP) 


MOV R.=( 
MOV #XMITRDY,-(R5) 
MOV 0,-(R5 


JSR PC, TIMER 
MOV (SP)+,R5 


TRANSMIT IT 
LET aTBUF :B= R2 
MOVB R2,aTBUF 


CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 


SEQ 0089 


MALNDEC=27=CNDVA=A MACY11 30(1046) 16=DEC-82 15:13 PAG 


E 185-1 
\CNDVAA.P11  —- 16=DEC=82 15:12 138 TEST ACTUAL DATA TRANSFERED SEQ 0090 
| «3 010272 010546 Mov =( 
| (7) 010274012745 177777 MOV pits SRS) 
| = (6) «010300 (016745 «170754 . MOV RCSR,=(R5) 
| 5) 010306 012745 000200 MOV #RCVRDONE , = (RS) 
(4) 010310 012745 000500 MOV #500,< (R55 
| 3) 010314 004767 001150 JSR oy ine 
(3) 010320 012605 MOV CSbyer Re 
10994 zAND SAVE IT 
10995 010322 LET R3 := aRBUF 
(4) 010322 017703 170734 MOV QRBUF ,R3 
10996 
10997 
10998 sCOMPARE TO SEE IF WE RECEIVED IT ALL 
11000 ;CLEAN OFF NON-DATA BITS 
11001 7ON BOTH TRANSMITTED AND 
11002 010326 LET R4 := R2 CLR.BY R1 
(4) 010326 010204 MOV R2,R4 
(7) 010330 040104 BIC R1,R4 
11003 010332 LET R3 := R3 CLR.BY R1 
160 010332 040103 BIC R1,R3 
11005 sRECEIVED DATA 
11006 010334 IF R4 NE R3 THEN 
(6) 010334 020403 CMP R4,R3 
(9) 010336 001405 BEQ $172 
11007 ;DATA COMPARE ERROR 
11008 010340 ERRHRD 116,COMP,SBWAS 
(1) 010340 104116 ERROR 116 
11009 010342 EXIT TST ; ON ERROR 
(5) 010342 012767 000001 170610 MOV #1,STIMES 
(3) 010350 000404 BR TST 36 sssEXIT THIS TEST 
11010 010352 ENDIF 
(4) 010352 $172: 
11011 010352 ENDINC ; R2 
(4) 010352 000725 BR $170 
(3) 010354 $171: 
11012 
11013 zRESET MAINT. BIT. 
11014 010354 LET aTCSR := aTCSR CLR.BY #MAINT 
(7) 010354 042777 000004 170702 BIC #MAINT, aTCSR 
11015 010362 ENDTST 
11016 
11017 
11018 


| MAINDEC=Z77-CNDVA~A 
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010364 
010372 
010400 
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000004 
012767 
012767 
032767 
001004 
012767 
000474 


042777 
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oss 
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162705 
004767 
012501 
017700 
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000401 
005202 


020227 
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000001 
000036 


020000 


000001 


000004 


000000 
010440 


000002 
001176 


170604 


000377 


177777 


000750 


170566 
170600 


170612 


170542 


170636 
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6-DEC-82 15:13 PAGE 186 
5 TEST ACTUAL DATA TRANSFERED 


SEQ 0091 


fERAA eee eee eee AA TE RATATAT AA AAA TATA TAA TA AAA A RAAT AAA Tee eee 
5 RRA AERREE EAA ERE AA ERATE RAAT ET AE RA AEE RAE EEEA REA EREEAER EERE EES 


TEST DATA THROUGH CABLE 


ERE REE AREER EEE EER ATER AEEREREEAEREAREREEREREE 


TeTEST 36 
1$136: 


MOV 
MOV 


BIT 

BNE 

MOV 

BR 
$173: 


64$: 


$175: 
$174: 


SCOPE 


#1,$TIMES 
#36, $TESTN 


#CABLE , SUSWR 
$173 


#MAINT,ATCSR 


#PRO,-(SP) 
#64$,-(SP) 


#1*2,25 
PC,DATLNG 
(R5)+,R1 


@RBUF ,RO 


R2 
$174 
R2 


R2,#377 
$176 


R-=(R 
#XMITRDY 
#500,-(R5) 
PC, TIMER 
(SP)+,R5 


5) 
=(R5) 


3300_1_ITERATION 
33SET TEST NUMBER IN APT MAIL BOX 
IF #CABLE NOTSETIN $USWR THEN 


:CAN'T TEST WITHOUT A CABLE 
EXIT’ TST 
sizEXIT THIS TEST 
ENDIF 
:DON'T USE MAINT. 
LET @TCSR := aTCSR CLR.BY #MAINT 
ZCHANGE PRIORITY 
:;PUT NEW PS ON STACK 
::PUT NEW PC ON STACK 
?:POP NEW PC AND PS 


;GET DATA MASK 
CALL DATLNG OUT <R1> 


LET RO := @RBUF ; START CLEAN 


BINARY COUNT PATTERN 
INCR R2 FROM #0 TO #377 BY #1 


; TRANSMIT THE CHAR. IN R2. 
CALL TIMER IN <#500,#XMITRDY,TCSR,#SET> 


MAINDEC=Z72=CNDVA=A 
CNDVAA.P11 
11059 
11060 010522 
(4) 010522 110277 
11061 010526 
(3) 010526 01054 
(7) 010530 012745 
(6) 010534 016745 
(5) 010540 01274 
(4) 010544 012745 
| (3) 010550 004767 
(3) 010554 01260 
11062 
11063 
/ 11064 010556 
| (4) 010556 017703 
11065 
| 11066 
| 11067 010562 
| (4) 010562 010204 
| (7) 010564 040104 
| 11068 010566 
(7) 010566 040103 
| 11069 
11070 
| 11071 010570 
(6) 010570 020403 
(9) 010572 001405 
11072 
11073 010574 
| C1) 010574 106117 
11074 010576 
(5) 010576 012767 
010604 000401 
11075 010606 
(4) 010606 
11076 
11077 010606 
(4) 010606 000725 
(3) 010610 
11078 
11079 
11080 
11081 010610 
11082 
11083 
11084 
11085 
' 
| 
| 
| 
| 


MACY11 30(1046) 
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170542 


177777 
170520 
000200 


000500 
000714 


170500 


000001 


170354 


16=DEC-82 
136 


$177: 


$176: 


8 8 
15:13 PAGE 186-1 


TEST DATA THROUGH CABLE 


BIC 
BIC 


CMP 
BEQ 


ERROR 


MOV 
BR 


R2,aTBUF 


R5,-(SP) 
#SET,-(RS) 
RCSR.=(R5) 
#RCVRDONE , =(R5) 
#500,-(R5) 

PC, TIMER 
(SP)+,R5 


@RBUF ,R3 


117 
#1, STIMES 
TST37 


$175 


;START IT ON ITS WAY 


LET a@TBUF :B= R2 
CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 


RETRIEVE 


R3 := @RBUF 


STRIP OFF JUNK ON BOTH 


R4 := R2 CLR.BY R1 


R3 := R3 CLR.BY R1 


;WE HAVE TROUBLE 
IF R4 NE R3 THEN 


;DATA COMPARE ERROR 


ERRHRD 117,COMP,SBWAS 


EXIT TST 


33zEXIT THIS TEST 
ENDIF 


ENDINC 


ENDTST 


3: R2 


: ON ERROR 


SEQ 0092 


MAINDEC=Z7-CNDVA-A 
CNDVAA.P11 16=DEC-82 
| 9 
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— — sd 
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010610 000004 


010612 012767 
010620 012767 


06 
0626 032767 
06 


34 001404 
012767 


36 
010644 000550 


010646 162705 
010652 004767 
010656 012503 


010660 012746 
010664 


012746 


010670 000002 


2 
010672 016701 


012721 


010702 012721 


000001 
000037 


000001 


000001 


000002 
000770 


000000 
010672 


170360 


011072 
000300 
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736 TEST DATA THROUGH CABLE 


FERRARA REEAEEE EEE ERE TER EE RAE RERAERE RARER ER EAE EAREREERE NEE 
SReReeReeeeeeeeeeee eee eee eeeeeeeeeeteeeeeeeneeeeneKeneeeeeeeeer 


:STEST 37 


FULL DATA TRANSFER WITH INTERRUPTS 
AND MAINTENANCE MODE. 


seuseneseedeeoeseousnesetsonsennsessanmenesenaqnannadenenneniens 


‘it SCOPE 


MOV 
MOV 


$200: 


SUB 
MOV 


64$: 


MOV 


#1, STIMES 33D0_1_ITERATION 
#37, STESTN 7-SET TEST NUMBER IN APT MAIL BOX 


3; THIS TEST IS ‘BREAK OR HALT’ SINSATIVE. 
IF #APTENV SETIN SENV THEN 
#APTENV, SENV 
$200 
EXIT TEST 


#1,$TIMES 
TST40 IT THIS TEST 


=m 
wx 


GET DATA MFSK 
2.R5 CALL DATLNG OUT <R3> 
PC sDatLus 


(R5)+,R 


THE DUL 
TO HANDLE INTERRUPTS FROM BOTH SIDES 
AT ONCE. ALSO, THE DOUBLE BUFFERING LOGIC 
OF THE UART WILL BE FULLY TESTED. 
IS TEST WILL TRANSFER A aj OF pag ts 


IF AN ERROR 
IS DETECTED BY THE TEST A PREMATURE SHUTDOUN OCCURS. 


— PRIORITY 


Zeele 

#PRO,-(SP) 7:PUT NEW PS ON STACK 

#64$,-(SP) :,PUT NEW PC ON STACK 
:;POP NEW PC AND PS 


GET VECTOR ADDRESS 
LET R1 := DLVEC 


DLVEC,R1 
ghCvR VECTOR 
LET (R1)* := MREC 
#REC,(R1)¢ 
LET (R1)+ := #PR6 
#PR6,(R1)¢ 
sPOINT TO TRANSMITTER VECTOR 
sAND SET IT U ALSO 
LET (R1)+ : A 4! 


SEQ 0093 


ov 2 OO OOOOOOEEEOEOEOEOEOOOOOOEEEEEEEEEEOEEEOEOEOEeEee 


D 
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MAINDEC=272=CNDVA=A MACY11 30(1046) 1 
CNDVAA.P11 16=DEC=82 15:12 137 FULL DATA TRANSFER WITH INTERRUPTS SEQ 0094 
(4) 010706 012721 011030 MOV #TRAN, (R1)¢ 
11141 010712 LET (R1) == #PR6 
1423 010712 012711 000300 MOV #PR6,(R1) 
11143 : INITIALIZE COUNTERS 
11144 010716 LET R1 := #1 
(4) 010716 012701 177777 MOV #-1,R1 
41145 sRECEIVER STORAGE 
11146 010722 LET R2 := #0 
/ (4) 010722 005002 CLR R2 
11167 :# OF RECEIVED CHAR. COUNT. 
11148 010724 LET RG := #1 
i 010724 012704 177777 MOV #=1,R4 
11150 : CLEAR ERROR COUNT. 
11151 010730 LET ERRCNT := #0 
1f3 010730 005067 000066 CLR ERRCNT 
11153 010734 BRESET ;SET UP ALL REGISTERS 
(1) 010734 000005 RESET 
11154 :SET UP MAINTENANCE 
11155 010736 LET @TCSR := aTCSR SET.BY #MAINT 
ae 010736 052777 000004 170320 BIS #MAINT,a@TCSR 
11157 :SET I.E. IN TRANSMITTER 
11158 010744 LET aTCSR := aTCSR SET.BY #XMITIE 
(7) 010744 052777 000100 170312 BIS AXMITIE,aTCSR 
11159 “AND RECEIVER 
11160 010752 LET @RCSR := @RCSR SET.BY #RCVRIE 
fe 010752 052777 000100 170300 BIS ARCVRIE,ARCSR 
11162 
11163 :NOW WE WAIT UNTIL 24 COUNT (RECEIVED) 1S EQUAL 
11164 010760 REPEAT 
(3) 010760 $201: 
11165 010760 UNTIL R4 EQ NUMBER OR ERRCNT GT #0 
(4) 010760 020467 000040 CMP R4, NUMBER 
(6) 010764 001403 BEQ $202 
(4) 010766 005767 000030 TST ERRCNT 
(7) 010772 003772 BLE $201 
(4) 010774 $202: 
11166 
11167 -DATA COMPARE ERRORS. 
11168 010774 IF ERRCNT NE #0 THEN 
(6) 010774 005767 000022 TST ERRCNT 
(9) 011000 001401 BEQ $203 
11169 :DATA COMPARE ERROR 
11170 011002 ERRHRD 120,COMP,FIRST 
(1) 011002 104120 ERROR 120 
11171 011004 ENDIF 
mc 011004 $203: 
11173 011004 LET aTCSR := aTCSR CLR.BY #XMITIE 
(7) 011004 042777 000100 170252 BIC #XMITIE,aTCSR 
11174 011012 LET @RCSR := ARCSR CLR.BY #XMITIE 
(7) 011012 042777 000100 170240 BIC #XMITIE,@RCSR 


E 
MAINDEC=Z7=CNDVA=A MACY11 30(1046) 16=DEC-82 15:13 PAGE 187-2 
CNDVAA.P11 16=DEC=82 15:12 137 FULL DATA TRANSFER WITH INTERRUPTS SEQ 0095 
11175 
011020 ; EXIT SKIP OVER SUPPORT ROUTINES & STORAGE 
011020 000462 BR TST40 sszEXIT THIS TEST 
011022 000000 ERRCNT: 0 
011024 000400 NUMBER: 400 
011026 000 SB: «BYTE 0 
011027 WAS: -BYTE 0 


FRR RE AERA RER ARETE RETA E ETE EERE AERERERERERRAERRREREE EEE 


TRANSMIT INTERRUPT HANDLER 


22 ate os 
2 it at ad et edad 0d 
COC — C000 OOO MMO ONIN NWwNY 

SS TS SRARAVES SSIS 


eke ed me ek ek yd tk A dt ot od 8 0 2 ot ot ot at et 


011030 BGNSRV TRAN 
011030 TRAN: 
FRRRAARAARERRRERREEEEREEER AREA EE ERERRERERERREEREREKEEKEE Ee 
1 zs INCREMENT CHAR COUNT 
92 011030 LET R1 := R1 + #1 
7) 011030 005201 ' INC R1 
93 ;SET UP FOR TRANSFER 
94 011032 LET HOLD := R1 CLR.BY R3 
4) 011032 010167 000030 MOV R1,HOLD 
7) 011036 040367 000024 BIC R3,HOLD 
11195 AND SEND. 
11196 011042 LET @TBUF := HOLD 
4) 011042 016777 000020 170220 MCV HOLD ,aTBUF 
11197 ;ALL DONE 
11198 011050 IF Ri EQ NUMBER THEN 
6) 011050 020167 177750 CMP R1,NUMBER 
9) 011054 001003 BNE $204 
11199 ;STOP INTERRUPT PROCESSING 
11200 011056 LET a@TCSR := @TCSR CLR.BY #XMITIE 
(7) 011056 042777 000100 170200 BIC #XMITIE,@TCSR 
11201 011064 ENDIF 
(4) 011064 $204: 
11202 
sigh? 011064 000401 BR 222 3; EXIT SRV 
11603 011066 000000 HOLD :0 
11207 011070 772: ENDSRV 
(1) 011070 000002 RTI 
11208 
11209 
11210 FURRAAAAAA EEA AAAAAA AAA TAREE HEATER KAA AAA K AAA AAR 
11211 
11212 RECEIVER INTERRUPT HANDLER 
11213 011072 BGNSRV REC 
(1) 011072 REC: 
11214 PRA R AERA REAAAETA TERETE RATA AAA ARAEAERE ARERR EAE HAE HERS 
11215 
11216 ;COUNT THIS CHAR. 
11217 011072 LET R4 := R4 + #1 
(7) 011072 005204 INC R4 
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CNDVAA.PF11 16=DEC=82 15:12 137 FULL DATA TRANSFER WITH INTERRUPTS SEQ 0096 
11218 :GET CHAR IN + MASK IT 
11219 011074 LET R2 := @RBUF CLR.BY R3 
(4) 011074 017702 170162 MOV ARBUF ,R2 
(7) 011100 040302 BIC R3,R2 
11220 sRHLD WILL CONTAIN EXPECTED INPUT 
41221 011102 LET RHLD := R4 CLR.BY R3 
— - (&)-—-011102 «010467 000054 MOV R4,RHLD 
11833 011106 040367 000050 BIC R3,RHLD 
11223 -DO THEY COMPARE 
' 11224 011112 IF R2 NE RHLD THEN 
/ (6) 0111712 020267 000044 CMP R2,RHLD 
(9) 011116 001412 BEQ $205 
11225 sFIRST ERROR 
11226 011120 iF ERRCNT EQ #0 THEN 
(6) 011120 005767 177676 TST ERRCNT 
(9) 0111246 001005 BNE $206 
11227 sSAVE RECORD OF FIRST MISS 
11228 011126 LET SB :B= RHLD 
(4) 011126 116767 000030 177672 MOVB _—sRHLD, SB 
11229 011134 LET WAS :B= R2 
(4) 0111346 110267 177667 MOVB = R2, WAS 
11230 011140 ENDIF 
(4) 011140 $206: 
11231 :COUNT IT. 
11232 011140 LET ERRCNT := ERRCNT + #1 
(7) 011140 005267 177656 INC ERRCNT 
11233 011144 ENDIF 
(4) 011144 $205: 
112346 
11235 ZALL DONE? 
11236 011144 IF R& EQ NUMBER THEN 
(6) 011144 020467 177654 CMP R4 NUMBER 
(9) 011150 001003 BNE $207 
11237 sSTOP RECEIVER INTERRUPTS 
11238 011152 LET @RCSR := @RCSR CLR.BY #RCVRIE 
(7) 011152 042777 000100 170100 BIC #RCVRIE ,ARCSR 
11239 sMAIN REPEAT LOOP IS CHECKING 
11240 011160 ENDIF 
(4) 011160 $207: 
11241 
11242 sFOR "RG = NUMBER’ ALSO 
11243 011160 000401 BR 2222 : EXIT SRV 
11245 011162 000000 RHLD:0 
11246 011164 2222: 
11247 011164 ENDSRV 
(1) 011164 000002 RTI 
11248 
11249 011166 ENDTST 
11250 
11251 
11252 


G 
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FULL DATA TRANSFER WITH INTERRUPTS SEQ 0097 
11256 
11259 FLUMAA MARA HA AAAA AA AHAAATHTAE TA Ae eAee eee eeee ee eeeeetereeeeeeeeres 
11264 FF TARA ER ARERR AERA ER EERE RE EEEAAEEAAAAEREEEHREEERERA ATER ERATE 
(3) :*TEST 40 TEST BREAK GENERATION LOGIC 
(4) te TRANSMIT KNOWN CHAR WITH BREAK SET 
(4) ie AND COMPARE RECEIVED WITH 0. 
(3) FFARR AAA E EERE AREEEE EAE EERE EAEEHEAAAERAAAERERERAAERAAEEEEEEE 
(2) 011166 000004 1$140: SCOPE 
(1) 011170 012767 000010 167762 MOV #10, $TIMES ::D0 10 ITERATIONS 
(2) 011176 012767 000040 167774 MOV #40, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
11269 011204 IF #BRK NOTSETIN $USWR THEN 
(6) 011204 032767 010000 170006 BIT #BRK ,SUSWR 
(9) 011212 001004 BNE $210 
11270 011214 EXIT TST 
(5) 0112146 012767 000001 167736 MOV #1,$TIMES 
—- (3)-—«011222 000452 BR TST41 s:sEXIT THIS TEST 
/ 11271 011224 ENDIF 
(4) 011224 $210: 
| 11272 :SET MAINTENANCE BIT 
| 11273 011224 LET @TCSR := @TCSR SET.BY #MAINT 
nih 011224 052777 000004 170032 BIS #MAINT,aTCSR 
11275 : CLEAR RCVRDONE JUST IN CASE 
| 11276 011232 LET RO := @RBUF 
(4) «011232 017700 170024 MOV @RBUF ,RO 
| 11277 
11278 
11279 :SET BREAK BIT 
11280 011236 LET @TCSR := aTCSR SET.BY #BREAK 
(7) 011236 052777 000001 170020 BIS #BRIAK,ATCSR 
11281 :NON-ZERO CHAR. ‘#* 
11282 011244 LET aTBUF := #252 
(4) 011244 012777 000252 170016 MOV #252, aTBUF 
11283 011252 CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 
(3) 011252 010546 MOV R5,-(SP) 
(7) 011256 012745 177777 MOV #SET,-(R5) 
(6) 011260 016745 167774 MOV RCSR,=(R5 
(5) 011264 012745 000200 MOV #RCVRDONE ,-(R5) 
(4) 011270 012745 000500 MOV #500,-(R5) 
(3) 011274 004767 000170 JSR PC, TIMER 
(3) 011300 012605 MOV (SP)+,R5 
11284 011302 IF ERROR THEN 
(6) 011302 103001 BCC $211 
11285 ; RECIEVER DONE DID NOT SET 
11286 011304 ERRHRD 115 
(1) 011304 104115 ERROR 115 
11287 011306 ENDIF 
(4) 011306 $211: 
11288 
11289 011306 IFB @RBUF NE #0 THEN 
(6) 011306 105777 167750 TSTB = @RBUF 
(9) 011312 001401 BEQ $212 
11290 ; BREAK DID NOT EQUAL 0 
11291 011314 ERRHRD 121 ,BADBRK 
(1) 011316 106121 ERROR 121 


la a a 
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CNDVAA.P11 16=DEC=82 15:12 TEST BREAK GENERATION LOGIC SEQ 0098 
11292 011316 ENDIF 
(4) 011316 $212: 
11293 011316 BRESET ;CLEAN UP 
(1) 011316 000005 RESET 
11294 011320 EXIT 
(3) 011320 000413 BR TST41 33cEXIT THIS TEST 
11295 011322 051102 040505 020113 BADBRK: .ASCIZ /BREAK DID NOT EQUAL 0/ 
011330 044504 020104 047516 
011336 020124 050505 040525 
296 011344 020114 000060 
297 011350 ENDTST 


MAINDEC=22=CNDVA=A MACY11 30(1046) 16=DEC-82 15:13 PAGE 189 
CNDVAA.P11 16=DEC=82 15:12 140 TEST BREAK GENERATION LOGIC SEQ 0099 
11299 
11304 
11305 SLR AAA AEA AEA AERA EH AE TEE TEAEEAEAREREEREHTEEEKEREKEREHEEER EEE 
(3) S*TEST 41 NOT A TEST = SEND BACK TO LOOP 
(3) PPR RPRAERASALASEOASELALLELALALALAELALLE SEES ESE SESE R ESTER REESE RRR RES SES SE 
(2) 011350 000004 T$141: SCOPE 
(1) 011352 012767 000001 167600 MOV #1,STIMES ::D0 1 ITERATION 
11306 011360 104401 011366 TYPE ,65$ :: TYPE ASCIZ STRING 
(1) 011364 000404 BR 64$ ':GET OVER THE ASCIZ 
(1) 3:65$: .ASCIZ <CRLF>*CSR: *« 
(1) 011376 64$: 
11307 011376 016746 167652 MOV DLADD,-(SP) z:SAVE DLADD FOR TYPEOUT 
-- €1)-—«0191402 «= 104402 TYPOC ::G0 TYPE*-OCTAL ASCII(ALL DIGITS) 
11308 011404 104401 011412 TYPE .67$ +: TYPE ASCIZ STRING 
- (1)--011410 »=000405 BR 66$ ::GET OVER THE ASCIZ 
oe 3:67$: .ASCIZ *,VECTOR: * 
(1) 019424 66S: 
11309 011424 016746 167626 MOV DLVEC,<(SP) z:SAVE DLVEC FOR TYPEOUT 
(1) 011430 104402 TYPOC ::GO TYPE=-OCTAL ASCII(ALL DIGITS) 
11310 011432 104401 011440 TYPE 69S 7: TYPE ASCIZ STRING 
(1) 011436 000405 BR 68$ *:GET OVER THE ASCIZ 
(1) 3:69$: .ASCIZ *,ERRORS: * 
(1) 011452 68$: 
11311 011452 016746 167434 MOV SERTTL,-(SP) s:SAVE SERTTL FOR TYPEOUT 
(1) 011456 104405 TYPDS ::GO TYPE=-DECIMAL ASCII WITH SIGN 
11312 011460 005067 167426 cLR SERTTL ; RESET FOR NEXT DEVICE/PASS 
11313 011464 000167 170254 JMP LOOP : BACK UP TO THE BEGINNING 


MAINDEC-ZZ-CNDVA=A 
CNDVAA.F11 16=DEC-82 
11319 
11324 
11325 
11326 
- 11331 011470 
2) 011470 
/ 11332 
| 11333 
11334 
| 11335 
| 11336 
11337 
| 11338 
| 11339 
| 11340 
| 11341 
| 11342 
113435 
11344 
11345 
| 11346 
11347 
11348 
11349 
11354 
11359 
11360 000001 
11361 000000 
11362 
11363 011470 
(4) 011470 016567 
11364 011476 
(4) 011476 016567 
11365 011504 
(4) 011504 112767 
11366 
11367 
11368 
11369 
11370 011512 
(3) 011512 
11371 
11372 011512 
(6) 011512 036577 
(9) 011520 001004 
11373 011522 
(4) 011522 112767 
11374 011530 
(4) 011530 000403 
(3) 011532 
11375 011532 
(4) 011532 112767 
11376 011540 
(4) 011540 
11377 


MACY11 30(1046) 


15:12 


000004 
000000 
000000 


000002 


000000 


177777 


000136 
000132 
000126 


000114 


000111 


000101 
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‘7 
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* 
* 
* 
* 
® 
* 
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$215: 


$217: 


$220: 
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NOT A TEST = SEND BACK TO LOOP 
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; sBGNMOD SUBS 


FARRAR AREA EA AAAAAAAA ARATE REE E REAR ERERERERAREEHARAEA AERA RATE EEE 


ROUTINE TIMER <HOWLONG,WHICHBIT,REG,SETCLR> 


THI 


TIMER: 
3* ROUTINE: TIMER 


SEQ 0100 


S$ ROUTINE IS USED TO TEST THE STATUS OF ANY BIT 
INPUTS REGISTER. 


TSe 
HOWLONG Hh ao rit AMOUNT OF TIME TO SPEND IN 


H ° 
WHICHBIT A MASK WITH THE BIT(S) SET THAT ARE 
TO BE CH 


REG A POINTER TO THE REGISTER TO BE CHECKED 
SETCLR THE DESIRED RESULTS 
ELTHER #SET OR #CLEAR 


OUTPUT: 


MOV 
MOV 
MOVB 


BIT 
BNE 


MOVB 
BR 


MOVB 


THE ‘C° at IS SET TO INDICATE AN ERROR 


BuT IT I 


TESTED BY THE IF.ERROR STATEMENT 


NOTE:: THE USE OF (R5) IS PART OF THE LINKAGE 
MECHANISM BETWEEN THE CALLER AND THE CALLED 


POR RAAESELESLALELSEEA EEL ARES ELAR AREA R AREA RA AAR AAAS AAAS ARR R ADDS D SS 


REG(R5) ,REGSAV 
HOWLONG(R5), TIMSAV 
#FALSE FLAG 


WHICHBITCRS) ,@REGSAV 
$217 


#CLR,HOLDSC 
$220 


#SET,HOLDSC 


TRUE= 1 
FALSE= 0 


LET REGSAV := REG(R5) ; GET POINTER TO REGIST 
LET TIMSAV := HOWLONG(RS) ; SAVE HOWLONG FOR 
LET FLAG :B= MFALSE ; INITIALIZE THE EXIT FLA 


3 START OF AN INFINITE LOOP 
LOOP 
; TEST TO SEE_IF WHICHBIT IS SET 
IF WHICHBIT(RS) NOJTSETIN @REGSAV THEN 


LET HOLDSc :B= 4CLR 
ELSE 


LET HOLDSC :B= #SET ; REMEMBER THIS 
ENDIF 


3; NOW SEE IF THAT WAS WHAT WE WANTED 
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CNDVAA.P11 16=DEC=82 15:12 ROUTINE = TIMER SEQ 0101 





11379 011540 IFB HOLDSC EQ SETCLR(RS5) THEN 
(6) 011540 126765 000075 000006 CMPB HOLDSC,,SETCLR(RS) 
(9) 011546 001003 BNE $221 
11380 3 JUST THE THING WE NEEDED 
11381 011550 LET FLAG :B= #TRUE 
(4) 011550 112767 000001 000062 MOVB #TRUE ,FLAG 
11382 011556 ENDIF 
11483 011556 $221: 
11384 011556 EXIFB FLAG EQ #TRUE OR TIMSAV LE #0 
(4) 011556 126727 000056 000001 CMPB FLAG, #TRUE 
(6) 011564 001414 BEQ $216 
(4) 011566 005767 000044 TST TIMSAV 
46) 011572 003411 BLE $216 
11385 ;_ONE WAY OR THE OTHER, WE ARE DONE 
11558 : IF WE ARE STILL HERE THEN HANG AROUND A WHILE 
11388 011574 } WAITMS 1 WAIT FOR 10 MILLI-SECONDS 
(4) 011574 010546 MOV" RS,-(SP) 
(5S) 011576 012745 000001 MOV #1,-(R5) 
(4) 011602 004767 000140 JSR PC WAIT 
(4) 011606 012605 MOV (SP)+,R5 
11389 011610 LET TIMSAV := TIMSAV = #1 ; COUNTING DOWN 
(7) 011610 005367 000022 DEC TIMSAV 
11390 011614 ENDLOOP : CONTINUED AT THE TOP 
(4) 011614 000736 BR $215 
(3) 011616 $216: 
11391 
11392 ; ONLY 2 WAYS TO GET HERE 
11393 3 1). WE RAN OUT OF TIME=--ERROR ! ! 
ieee : 2). THE BIT IS IN THE CORRECT CONDITION--GOOD ! ! 
11396 011616 IFB FLAG EQ #TRUE THEN | 
(6) 011616 126727 000016 000001 CMPB FLAG, #TRUE 
(9) 011624 001001 BNE $222 
11397 011626 RETURN NO.ERROR : GOOD 
(4) 011626 000405 BR $213 
11398 011630 ENDIF 
(4) 011630 $222: 
11399 011630 RETURN ERROR : BAD 
(2) 011630 000261 SEC 
11400 011632 000404 BR $214 
11401 011634 000000 REGSAV: .WORD 0 
11402 011636 000000 TIMSAV: .WORD 0 
11403 011640 000 FLAG: .BYTE 0 
11404 011641 000 HOLDSC: .BYTE 0 
11405 ; WE ARE DONE GO BACK HOME 
11406 011642 NDRTN 
(3) 011642 $213: 
(2) 011642 000241 CLC 
(3) 011644 $214: 
(2) 011644 000207 RTS PC 
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CNDVAA.P11 16-DEC-82 15:12 ROUTINE = TIMER SEQ 0102 
11408 
11409 
114614 5 RREREREREREREKHEKAAHAAAAAT HAHAH HA AAA KAKA Hee eRe eee eee e eee eeeee 
11419 011646 ROUTINE DATLNG <MASK> 
(2) 011646 DATLNG: 
11420 3* ROUTINE :DATLNG 
11421 3* THIS ROUTINE SETS UP A MASK FOR DATA, WITH 
11656 3* INPUT = NOTHING IS PASSED TO THIS ROUTINE 
= 1162 7* BUT GLOBAL INFORMATION IS ASSUMED TO EXIST: 
| 11426 3* SUSWR=-- THE WORD FOR SOFTWARE PARAMETERS 
| 11425 3* DATA=- A MASK FOR THE LOCATION OF THE OCTAL 
' 11426 3* NUMBER OF DATA BITS 
, 11427 3* OUTPUT---- 
| 11428 3* MASK== A MASK OF BINARY ONES RIGHT-JUSTIFIED 
| ps +4 3* THE NUMBER OF WHICH IS DEFINED IN $SUSWR WORD. 
11435 FURR eee RARE EERE A AEE E AERA AAA AEA AEEAAAAAREREREAEKE AERA EEE 
, 11440 
| 11441 011646 LET MASK(RS) := #0 : START 
(4) 011646 005065 000000 CLR MASK (RS) 
| 11442 011652 LET NUMBR := $USWR AND #DATA 
(4) 011652 016767 167342 000062 MOV SUSWR,NUMBR 
(7) 011660 016746 000056 MOV NUMBR ,~ (SP) 
(7) 011664 042716 000017 BIC #DATA, (SP) 
odie 011670 042667 000046 BIC (SP)+,NUMBR 
11444 011674 INCR I FROM #1 TO NUMBR BY #1 
(4) 011674 012767 000001 167370 MCV #1 J 
(5) 011702 000402 BR $20 
(4) 011704 $226: 
(8) 011704 005267 167362 INC I 
(5) 011710 $225: 
(5) 011710 026767 167356 000024 CMP 1, NUMBR 
(7) 011716 003006 BGT $227 
11445 011720 LET MASK(RS) := MASK(RS) SHIFT #1 
(8) 011720 006365 000000 ASL MASK (R5) 
11446 011724 LET MASK(RS) := MASK(RS) SET.BY #1 
(7) 011724 052765 000001 000000 BIS #1,MASK(R5) 
11447 011732 ENDINC 
(4) 011732 000764 BR $226 
(3) 011734 $227: 
11448 011734 LET MASK(RS) := COMP MASK(RS) 
(7) 011734 005165 000000 COM MASK (R5) 
11449 011740 RETURN 
(4) 011740 000401 BR $223 
11450 011742 000000 - NUMBR:0 
11451 011744 ENDRTN 
(3) 011744 * $223: 
(3) 011744 $224: 
(2) 011744 000207 RTS PC 
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CNDVAA.P11 16-DEC-82 15:12 ROUTINE = DATLN SEQ 0103 
> 11653 
| 114546 
' 11659 5 RRA AEAREEREEEEREE EEE ETEEEAEEAEEEREERAREEAEEEAEEEARA EERE REE ES 
11464 011746 ROUTINE WAIT  <TIME> 
(2) 011746 WAIT: 
; 11465 3* ROUTINE: WAIT 
| 11466 3* THIS ROUTINE IS USED TO DELAY EXECUTION OF THE 
: 11467 3* MAIN PROGRAM FOR A SPECIFIED AMOUNT OF TIME. 
11468 3* THIS IS ACCOMPLISHED BY INCREMENTING A 
11469 3* REGISTER UP TO A LIMIT. THE INNER LOOP IS SET 
| 11470 3* TO APPROXIMATE 1 MILLI SEC. 
11475 FL UREA ERA EAA RATER EAE EAE EERE AREER REAR EEARERAREREEEKEEE EEE 
| 11476 011746 010146 MOV R1,-(SP) 33PUSH R1 ON STACK 
(2) 011750 . 010246 MOV R2,-(SP) 33PUSH R2 ON STACK 
| (3) 011752 010346 MOV —-R3,=(SP) ZIPUSH R3 ON STACK 
|; 11481 011754 LET R1 := TIMEC(RS) 
| (4) 011754 016501 000000 MOV TIME(RS) ,R1 
11482 011760 INCRU R2 FROM #1 TO R1 BY #1 
(4) 011760 012702 000001 MOV #1,R2 
(5) 011764 000402 $252 
(4) 011766 $233: 
(8) 011766 062702 000001 ADD #01,R2 
(5) 011772 $232: 
(5) 011772 020201 CMP R2,R1 
(7) 011774 101010 BHI $254 
11483 011776 INCR R3 FROM #0 TO #100 BY #1 
(4) 011776 005003 CLR R 
(5) 012000 000401 BR $235 
(4) 012002 $236: 
(8) 012002 005203 INC R3 
(5) 012004 $235: 
(5) 012004 020327 000100 CMP R3,#100 
(7) 012010 003001 BGT $237 
11484 012012 ENDINC 
(4) 012012 000773 BR $236 
(3) 012014 $237: 
11485 012014 ENDINC 
(4) 012014 000764 R $233 
(3) 012016 $234: 
11490 012016 012603 MOV (SP)+,R3 3zPOP STACK INTO R3 
(2) 012020 012602 MOV (SP)+,R2 3:POP STACK INTO R2 
(2) 012022 012601 MOV (SP)+,R1 33;POP STACK INTO R1 
11495 012024 ENDRIN 
(3) 012024 $230: 
(3) 012024 $231: 
(2) 012024 000207 RTS PC 
| 
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| MAINDEC=27-CNDVA~A macy! 30(1046) 16=DEC-82 
CNDVAA.P11 16-DEC=82 15:12 ROUTINE = WA 

11497 

a4 

1150 » SBTTL 

11504 

11505 012026 

11506 ~ 

11507 se 

11508 3* 

11509 7* 

11510 :* 

11515 $3 

11520 

11521 

11522 012026 

(7) 012026 005267 000002 
11523 01203. 
1) 012032 000002 
11524 012034 000000 INTFLAG: 


N 
ae PAGE 193 


INTSRV INTERRUPT SERVICE ROUTINE 


I 


GLOBAL ROUT 
TINTFLAG® EACH 
THAT THE MAIN CALLING ROUTINE WILL KNOW WHAT 
TO LOOK FOR. 


NC 
R 


ENDSRV 
RT 


I 
0 


INTFLAG 


INTSRV 


- DOES NOTHING BUT eeeiees 
SSUMES 


TIME IT IS CALLED. IT 


3ADD 1 TO ‘INTERRUPT wer FLAG 


THAT'S ALL 


T INTFLAG : 


"Tha taal hada tha eth 


NTSRV 
. SERVICE ee 


METTLE TTTOTIVCTTTOTITITITITITTLL LLL LLL LLL LLL LLL 


= INTFLAG + #1 


SEQ 0104 


“MAINDEC=27=CNOVA=A 
CNDVAA.P11 16=DEC=82 
11526 
11527 
| 11528 012036 
(2) 012036 
| 11533 
11534 012036 = 104401 
| (1) 012042 000405 
| (1) 012056 
| 11535 012056 016746 
| (1) 012062 +104402 
11536 012064 104401 
(1) 012070 000405 
| 4) 012104 
| 11537 012104 116767 
11538 012112 016746 
(1) 012116 104402 
11539 012120 104401 
(1) 012124 000404 
(1) 012136 
11540 012136 016746 
(1) 012142 104402 
11541 012144 104401 
(1) 012150 000404 
(1) 012162 
11542 012162 016746 
(1) 012166 104402 
11543 012170 104401 
(1) 012174 000405 
(1) 012210 
11544 012210 016746 
(1) 012214 104402 
11549 012216 
(3) 012216 
(3) 012216 
(2) 012216 000207 
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012044 


167116 
012072 


167004 
167060 


012126 


166754 
012152 


167066 
012176 


167042 


167064 


16=DEC-82_ 15:13 PAGE 1 
INTSRV INTERRUPT SERVICE PROUT INE 


ROUTINE MYTYPE 
“0 YTYPE: 


peeeeeeeeeees RERAAAEEEEEAAETAEEAAAAARAAAAAAEAEEAAERAAAAAEAEAAAEEEAAEE 


TYPE 
S$: .ASCIZ 
"MoV 
TYPOC 
TYPE 
BR 
+:67$: .ASCIZ 
"  MOVB 
MOV 
TYPOC 
TYPE 
BR 
::69$: .ASCIZ 
“MoV 
TYPOC 
TYPE 


:71$: ORSciz 
+6$: / 
MOV 
TYPOC 
TYPE 


-73$: ORSc12 
-_ 


MOV 
TYPOC 
ENDRITN 
$240: 
$241: 
RTS 


648 
<CRLF>*TEST # * 


STESTN,-(SP) 
678 

66$ 

*,ERROR # * 


SITEMB,SFATAL 


SFATAL,-(SP) 


DLADD,-(SP) 
73$ 

72$ 

* VECTOR: * 

DLVEC,-(SP) 


PC 


zzTYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


oh STESTN FOR TYPEOUT 
TYPE=-OCTAL ASCII(ALL DIGITS) 

;:TYPE ASCIZ STRING 

3:GET OVER THE ASCIZ 


APT FATAL ERROR te iy 
3: SAVE SFATAL FOR TYPEOUT 
Ma —- DIGITS) 
7:TYPE ASCIZ STRING 
7;GET OVER THE ASCIZ 


3;SAVE SERRPC FOR TYPEOUT 

3:60 TY Osea atk ASCIICALL DIGITS) 
zz TYPE ASCIZ STRING 

33GET OVER THE ASCIZ 


ste DLADD FOR TYPEOU 

Cs alcil ait VASEITCALL DIGITS) 
::TYPE ASCIZ STRING 
3:GET OVER THE "ASclz 


7:SAVE DLVEC FOR TYPEOUT 
33GO TYPE=-OCTAL ASCIICALL DIGITS) 


SEQ 0105 


SS 


MAINDEC=Z7-CNDVA~A 
CNDVAA.P11 


WhO 0ONnN~N— 


115 
115 

( 
115 
115 
115 
115 
115 
115 
115 
115 
115 


~~ 
SOS SS SSCS 
oO 


012220 
3) 012220 
11570 012220 
(6) 012220 005767 
(9) 012224 001027 
11571 012226 
(6) 012226 026727 
(9) 012234 001003 
11572 012236 
(4) 012236 005067 
11573 012242 
(4) 012242 000403 
(3) 012244 
11574 012244 
(3) 012244 004767 
11575 
11576 012250 
11577 012250 
(4) 012250 012600 
11578 012252 
(4) 012252 
11579 012252 
(4) 012252 012767 
11580 012260 
(4) 012260 012767 
11581 012266 
(4) 012266 016767 
11582 012274 
(4) 012274 016767 
11583 012302 
(4) 012302 000410 
(3) 012304 
11584 012304 
(4) 012304 012704 
11585 012310 
(8) 012310 006167 
11586 012314 
(7) 012314 060467 
11587 012320 
(7) 012320 060467 
11588 012324 
(4) 012324 
11589 012324 
(3) 012324 036767 
(6) 012332 001732 


macy 30(1046) 
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000122 


000116 


000106 


000110 


000001 
000001 
166756 
166744 


000010 
000032 
000032 
000030 


000016 


000001 


000066 
166716 
000056 
000052 


166720 


C 
aa 15: e PAGE 195 
INE = MYTYPE 


ROUTINE CYCLE 
“ CLE: 


Cneaete . Wear Co ce ae eee 


3* ROUTINE: CYCLE 
THIS ROUTINE CAUSES ADRS TO POINT TO THE 
at % i 


ADDRESS OF ODLV11-E UNDER an 
ie _ TRACK OF THE CURRENT. DEVICE AND. at 


ca 

;* 

7* 

7* POINT TO THE VECTOR OF THE DLV11-E UN 

;* 

* K 

FFARR ERE EERE ARERR EEE AREER EEE AEKEEEEKEREEEREEEEREREREEEE 


REPEAT 
$244 
IF BITMASK EQ #0 THEN 
TST BITMASK 
BNE $245 
IF INITFLAG EQ #1 THEN 
CMP INITFLAG,#1 
BNE $246 
LET INITFLAG := 40 
CLR INITFLAG 
ELSE 
BR $247 
$246: 
CALL $EOP =; AS A SUBROUTINE 


JSR PC ,SEOP 
SPECIALADCRESS: 
MOV (SP)+,RO 


; BECAUSE SEOP_RETURNS AS A JUMP 
LET RO := POP 


ENDIF 
$247: 
LET BITMASK := #1 
MOV #1,BITMASK 
LET $DEVCT := 
MOV #1,$DEVCT 
LET ADDRESS := $BASE 
MOV SBASE ,ADDRESS 
LET VECTOR := $VECT1 
MOV S$VECT1,VECTOR 
ELSE 
BR $250 
$245: 
LET R4 := #10 
MOV #10,R4 
LET BITMASK := BITMASK ROTATE 1 
ROL BITMASK 
LET ADDRESS := ADDRESS + R4 
ADD R4, ADDRESS 
LET VECTOR := VECTOR + R4 
ADD R4,VECTOR 
ENDIF 
$250: 


UNTIL BITMASK SETIN SDEVM 
BIT (yeaa 


BEQ 


SEQ 0106 


MAINDEC=Z7-CNDVA=A MACY11 30(1046) 
CNDVAA.P11 16=DEC=82 15:12 
11590 
11591 012334 
(4) 012334 012701 012352 
11592 012340 
(7) 012340 005267 166640 
11593 012344 
(4) 012344 0004 
11594 012346 000000 
11595 012350 000001 
11596 012352 000000 
11597 012354 000000 
11598 
11599 012356 
(3) 012356 
(3) 012356 
(2) 012356 000207 
11600 
11601 


[eS 
; 


. 9 
6-DEC-82 15:13 PAGE 195-1 


1 
ROUTINE = CYCLE 


MOV 
INC 


BR 
BITMASK: 
INITFLAG: 
ADDRESS: 
VECTOR: 


$242: 
$243: 
RTS 


LET ADRS := #ADDRESS 
#ADDRESS , ADRS 


LET $DEVCT 
$DEVC 
RETURN 
$242 
0 
1 
0 
0 
ENDRTN 
PC 


:= S$SDEVCT + #1 


SEQ 0107 


E 
MAINDEC=Z77-CNDVA=A MACY11 36(1046) ane. 173 13 PAGE 196 


CNDVAA.P11 16=DEC=82 15:12 ROUTINE = CYCLE SEQ 0108 
11603 
11608 .SBTTL END OF PASS ROUTINE 
(2) FERRARA EREREEEE REE EAE EE AEAA AAA EEAEEAAEEREREREAEEKEREEE REE 
(1) : SINCREMENT ThE PASS NUMBER ($PASS) 
(1) i INDICATE END-OF =PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
(1) “TYPE "END PASS #XXXXX"" WHERE XXXXX IS A DECIMAL NUMBER) 
(1) teIF THERES A MONITOR GO TO IT 
(1) :e]F THERE ISN'T JUMP TO SPECIALADDRESS 
(1) 012360 SEOP: 
(1) 012360 000004 SCOPE 
(1) 012362 005067 166514 CLR $TSTNM i 3ZERO THE TEST NUMBER 
(1) 012366 005067 166566 CLR STIMES 33ZERO THE NUMBER OF ITERATIONS 
(1) 012372 005267 166604 INC $PASS i INCREMENT THE PASS NUMBER 
(1) 012376 042767 100000 166576 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
(1) 0124046 005327 DEC (PC)+ LOOP? 
(1) 012406 000001 SEOPCT: .WORD 
(1) 012410 003022 BGT $DOAGN ri YES 
(1) 012412 012737 MOV (PC)+,a(PC)+  ;;RESTORE COUNTER 
(1) 012414 000001 SENDCT: .WO 1 
(1) 012416 012406 $EOPCT 
(1) 012420 104401 012465 TYP SENDMG :TYPE “END PASS 4" 
(2) 012424 016746 166552 MOV $PASS,-(SP) 3 ISAVE SPASS FOR TYPEOUT 
(2) 012430 104405 TYPDS *GO TYPE==DECIMAL ASCII WITH SIGN 
(1) 012432 104401 012462 TYPE  ,$ENULL ::TYPE A NULL CHARACTER 
(1) 012436 013700 000042 $GET42: MOV a#42,R0 °:GET MONITOR ADDRESS 
(1) 012442 001405 Q $DOAGN ::BRANCH IF NO MONITOR 
(1) 012444 000005 RESET ‘CLEAR TH ) 
(1) 012446 004710 SENDAD: JSR PC, (RO) +:GO TO MONITOR 
(1) 012450 000240 NOP ::SAVE ROOM 
(1) 012452 000240 NOP ¥ 
(1) 012454 000240 NOP S:ACT11 
(1) 012456 SDOAGN: 
(1) 012456 000137 JMP a(PC)+ 7 :RETURN 
(1) 012460 012250 SRTNAD: .WORD SPECIALADDRESS 
(1) 
(1) 012462 377 377 000 $ENULL: .BYTE -1,-1,0 ssNULL CHARACTER STRING 
(1) 012465 015 042412 042116 $SENDMG: .ASCIZ <15><i2>/END PASS #/ 
(1) 012472 050040 051501 020123 
(1) 012500 000043 


MAINDEC=Z77-CNDVA=A 
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11610 
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_— 
RRR RRR RRA ARAAAR AAA AA BAA AEE EPP PRP PAPO PP Pe Oe OO 
kk ek ed ok ot ts = = = = WL LAWN 9 SP WIN WWW OO? NO 
me eee eee ee SS ee ee eee 
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So 

~ 
SoSe 
wns 
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012654 


000122 
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012646 
000300 


000054 
166334 


912502 
000300 


047520 


000024 
000026 


000024 


000024 


000024 
000026 


042527 


F 
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END OF PASS ROUTINE 


-SBTTL POWER DOWN AND UP ROUTINES 


FARRAR EAA EARAAEAEEEEEEEE AEA EAAAAEAERAEEEEEEEERAHEREAK EERE 
‘BOWER DOWN RUUTINE 
$PWRDN: MOV #SILLUP,a#PWRVEC ;;SET FOR FAST UP 
MOV #PR6, AHPWRVEC+2 ::PRIO:6 


MOV RO,-(SP) :;PUSH RO ON STACK 
MOV R1,-(SP) 3Z;PUSH R1 ON STACK 
MOV R2,-(SP) 73;PUSH R2 ON STACK 
MOV R3,-(SP) 77PUSH R35 ON STACK 
MOV R4,-(SP) :zPUSH R4 ON STACK 
MOV RS,-(SP) 7zPUSH RS ON STACK 
MOV tee 33PUSH @SWR ON STACK 
MOV P, SSAVR6 br 3 SP 

oe sshuRUP. @#PWRVEC ;;SET UP VECTOR 

BR 72 73HANG UP 


FERRARA AEE EEE EEE EEE EEEEEEEEREREEREEEERERAEEEEREEEREEEE 
“POWER UP ROUTINE 
$PWRUP: MOV #SILLUP-Q#PURVEC. z2SET FOR FAST DOWN 


MOV $SA 
CLR SSAVR6 s:WALT LOOP FOR THE TTY 
1$: INC SSAVR6 WAIT FOR THE INC 
BNE 1$ 7:0F WORD 
MOV (SP)+,aSWR : POP STACK INTO aSWR 
MCV (SP)+,R5 33POP STACK INTO R5 
MOV (SP)+,R4 32:POP STACK INTO R4 
MOV (SP)+,R3 33;POP STACK INTO R3 
MOV (SP)+,R2 :3POP STACK INTO R2 
MOV (SP)+,R1 3sPOP STACK pat R1 
MOV (SP)+ :POP K 


)+,RO 33 STACK INTO RO 
MOV #SPWRON, a#PWRVEC 33SET UP THE POWER DOWN VECTOR 
MOV #PR6,a#PWRVEC#+2 ;:PRIO:6 


TYPE REPORT THE POWER FAILURE 
SPWRMG: .WORD $POWER i :POWER FAIL Hp POINTER 
MOV (PC) +, (SP) RESTART AT STA 
$PWRAD: ee START RESTART ADDRESS. 
SILLUP: HALT 3;THE POWER UP SEQUENCE WAS STARTED 
BR -72 3: BEFORE THE POWER DOWN WAS COMPLETE 
SSAVR6: 0 3-PUT THE SP HERE 


SPOWER: .ASCIZ <15><12>*'POWER"’ 
EVEN 


SEQ 0109 


a 
we 

—N 
—N 


SOO DBOOCOOOCSCOSOOSCOSOOCSOSSSOSSSOSCSCSOSCSCOCCOCOoOCOCoOCooo 
=a ot Sy SD SA Se SS CS SOD Se Si Sn Se a a ne a OER ad ea 


G 
~CNDVA=A vot 30(1046) peek tock 15:13 PAGE 198 
16-DEC=82 15:1 OWER DOWN AND UP ROUTINES SEQ 0110 
-SBTTL TYPE ROUTINE 


FARRAR AAA AAAAEEAE AEA AEREREAAAAEREAEAEERAAREEAHEREEEAEEE EE 


¢ SROUTINE TO iYPE ASCIZ og geet MESSAGE MUST TERMINATE WITH A O BYT 


p* THE eu ae WILL ey NUMBER OF NULL CHARACTERS o's A LINE FEED. 

3 *NOTE1: SNULL CONTAINS - CHARACTER Y BE USED AS THE FILLER CHARACTER. 
:*NOTE2: SPILLS CONTAINS THE NUMBER OF FIL LER CHARACTERS REQUIRED. 

; *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


i. *CALL 
1) USING A TRAP INSTRUCTION 
YPE  ,MESADR Z:7MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


{SOR 
:* YPE 
it MESADR 
thd 
664 105767 166267 $TYPE: TSTB  $TPFLG zz1S THERE A TERMINAL? 
2670 100002 BPL 1$ ':BR IF Y 
2672 000000 HALT 3 3HALT HERE IF NO TERMINAL 
2674 000430 BR 3$ 3: LEAVE 
2676 010046 1$: MOV RO,-(SP) ZSAVE RO 
2700 017600 000002 MOV a2(SP),RO TIGET ADDRESS OF ASCIZ STRING 
2704 122767 000001 166302 CMPB = WAPTENV.SENV = RUNNING IN APT 
2712 001011 BNE 62$ :NO,GO CHECK FOR Apt CONSOLE 
2714 132767 000100 166273 BITB #APTSPOOL,SENVM 33 SPO OL MESSAGE TO A 
2722 001405 BEQ 62$ +:NO,GO CHECK FOR CON SOLE 
2724 010067 000004 MOV RO,61$ ise fur MESSAGE ADDRESS FOR APT 
2730 004767 000774 JSR PC. SATY3 L MESSAGE TO A 
2734 000000 61$: .WORD 0 ; MESSAGE ADDRESS 
2736 132767 000040 166251 62$: BITB  #APTCSUP,SENVM T CONSOLE p SUPPRESSED 
2744 001003 BNE 60$ +49 SKIP TYPE OU 
2746 112046 2s: MOVB (RO)+,=(SP) 3 PUSH CHARACTER TO BE TYPED ONTO STACK 
2750 001005 BNE 4$ :BR IF IT ISN'T THE TERMINA 
2752 005726 TST (SP)+ 331F TERMINATOR POP IT OFF THE STACK 
2754 012600 60$: MOV (SP)+,RO *RESTORE R 
2756 062716 000002 3$: ADD #2, (SP) + TADJUST RETURN PC 
2762 000002 RTI + RETURN 
2764 122716 000011 4$: CMPB ss #HT,, (SP) +:BRANCH IF <HT> 
2770 001430 BEQ 
2772 122716 000200 CMPB es @ CRLF, (SP) ::BRANCH IF NOT <CRLF> 
2776 001006 BNE 
3000 005726 TST (SP)+ z:POP <CR><LF> EQUIV 
3002 104401 TYPE :: TYPE A CR AND LF 
3004 001171 SCRLF 
3006 105067 000130 CLRB = $CHARCNT ::CLEAR CHARACTER COUNT 
3012 000755 BR 2$ T:GET NEXT CHARACTER 
3014 004767 000056 S$: JSR PC ,$TYPEC £360 TYPE THIS CHARACTER 
3020 126726 166132 6$: CMPB es SFILLC, (SP) + 31S IT TIME FOR FILLER CHARS. ? 
3024 001350 BNE F NO GO GET NEX 
3026 016746 166122 MOV $NULL ,-(SP) :3GET # OF FILLER CHARS. “NEEDED 
3032 105366 000001 7$: CECB =—s«AW SP) : :DOES A NULL NEED TO BE TYPED? 
3036 002770 BLT 6$ ‘BR IF NO=--GO POP THE NULL OFF OF STACK 
3040 004767 000032 JSR PC ,$TYPEC £:G0 TYPE A NULL 


CSOCCoCCOSCOO COCOOCOCOOoOO 
Sab aa aaa a od ad od ot od 
Ww Ww 
-—oO 
on 
Rx 


WWAWINWAWS 
et ce ed ee eed ed eed eed _—"* 
SS OWWPNN— 


ee ee ee ee ee ee ee ee ee a en en ta ee a a ea aa a ss 
SMOKOONrvor 


ee ee ee ee ee et ed ed ed td at at et a eC 
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16=DEC=82 15:12 TYPE ROUTINE SEQ 0111 


105367 000072 DECB SCHARCNT 3;D0 NOT COUNT AS A COUNT 
000770 BR 7$ ; LOOP 


HORIZONTAL TAB PROCESSOR 


112716 000040 8$: MOVB so#*_ , (SP) ;;REPLACE TAB WITH SPACE 
004767 000014 9$: JSR PC ,$TYPEC +:TYPE A SPACE 
132767 000007 000052 BITB #7.,$CHARCNT ?:BRANCH IF NOT AT 
001372 BNE 3% 3;TAB STOP 
005726 TST (SP)+ ::POP SPACE OFF STACK 
000724 BR 2$ +:GET NEXT CHARACTER 
105777 166046 STYPEC: TSTB a$TPS S:WAIT UNTIL PRINTER IS READY 
100375 BPL STYPEC 
116677 000002 166040 MOVB  2(SP),a$TPB :;LOAD CHAR TO BE TYPED INTO DATA REG. 
122766 000015 000002 CMPB #CR,2(SP) s31S CHARACTER A CARRIAGE RETURN? 
001003 BNE 1$ 3; BRANCH 
105067 000014 CLRB  $CHARCNT 7: YES==CLEAR CHARACTER COUNT 
000406 BR STYPEX scEXI 

2766 000012 000002 1$: CMPB ss LF, 2( SP) ::1S CHARACTER A LINE FEED? 
001402 BEQ STYPEX +:BRANCH IF YES 
105227 INCB ss (PC) + ::COUNT THE CHARACTER 
000600 SCHARCNT:.WORD 0 S:CHARACTER COUNT STORAGE 
000207 $TYPEX: RTS PC 


I 
MAINDEC=Z7=-CNDVA~A rath 30(1046) Lag 3p Rises PAGE 199 
CNDVAA.FP11 16=-DEC=82 15:12 TYPE R SEQ 0112 


13618 
~SBTTL TTY INPUT ROUTINE 


PARRA eee eee eAAAAAAAEAAAKEA TEAR EAH AAAETAAA AEE ERAEA ERATE ERA EAE ES 


-ENABL LSB 


ee eee 

* SSOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

s*ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WILL 

T*SERVICE THE TEST FOR CHANGE IN SOFTWARE Sul TCH REGISTER TRAP CALL 


et a Ef 
wee ew we we a 


Ee ee 


1) + #WHEN OPERATING IN TTY FLAG MODE. 

1) 013146 022767 000176 165764 $CKSWR: CMP #SWREG, SWR s:1S THE SOFT=SWR SELECTED? 
1) 013154 001074 BNE 15$ BRANCH IF NO 

1) 013156 105777 165762 TSTB = @STKS iE CHAR THERE ? 

1) 013162 100071 BPL 15$ SIF NO, DON'T WAIT AROUND 
1) 013164 117746 165756 MOVB  a$TKB,-(SP) t:SAVE THE CHAR 

1) 013170 042716 177600 BIC #°C177, (SP) i: STRIP-OFE THE ASCII 

1) 013174 022726 000007 CMP #7, (SP)+ S IT A CONTROL G? 

1) 013200 001062 BNE 15$ HIN, RETURN TO USER 

1) 013202 126727 165726 000001 CMPB = $AUTOB, #1 ARE WE RUNNING IN AUTO-MODE? 
1) 013210 001456 BEQ 15$ <{BRANCH IF YES 

1) 013212 104401 013673 TYPE  ,$CNTLG s:ECHO THE CONTROL=G (*G) 

1) 013216 104401 013700 SGTSWR: TYPE  [$MSWR ::TYPE CURRENT CONTENTS 

2) 013222 016746 164750 MOV SWREG, (SP) Z3SAVE SWREG FOR TYPEOUT 

2) 013226 104402 TYPOC G60 O TyPE--OCTAL ASCIICALL DIGITS) 
(1) 013230 104401 013711 TYPE ,$MNEW : PROMPT NEW SWR 

(1) 013234 005046 19$: CLR =(SP) tI CLEAR COUNTER 

(1) 013236 005046 -( 

(1) s 3 THE NEW SWR 

(1) 013240 105777 165700 7$: 1$1B. 0s a@STKS s:CHAR THERE? 

(1) 013244 100375 BPL 7$ ::IF NOT TRY AGAIN 

(1) 013246 117746 165674 MOVB = a$TKB,-(SP) ::PICK UP CHAR 

(1) 013252 042716 177600 BIC #°C177, (SP) ::MAKE IT 7=BIT ASCII 

) 

(1) 013256 021627 000025 9$: CMP (SP) #25 s:1S IT A CONTROL=U? 

(1) 013262 001005 BNE 10$ ;3BRANCH IF NOT 

(1) 013264 104401 013666 TYPE  ,$CNTLU YES, ECHO CONTROL-U (“U) 
(1) 013270 062706 000006 20$: ADD #6,SP SIGN NORE PREVIOUS INPUT 

(1) 013274 000757 BR 19$ *:LET'S TRY IT AGAIN 

(1) 

(1) 013276 021627 000015 10$: CMP (SP) ,#15 s:IS IT A <CR>? 

(1) 013302 001022 BNE 16$ : SBRANCH 1F NO 

(1) 013304 005766 000004 TST 4(SP) S:YES, IS IT THE FIRST CHAR? 
(1) 013310 001403 BEQ 11$ S:BRANCH IF YES 

(1) 013312 016677 000002 165620 MOV 2(SP) ,aSwR +:SAVE NEW SWR 

(1) 013320 062706 000006 11$: ADD #6,SP *:CLEAR UP STACK 

(1) 013324 104401 001171 14$: ‘TYPE $CRLF i ZECHO <CR> AND < 

(1) 013330 126727 165601 000001 CMPB ss S$ INTAG, #1 RE-ENABLE Try <eD. INTERRUPTS? 
(1) 013336 001003 BNE 15$ BRANCH IF N 


39 

MAINDEC=22=CNDVA=A MACY11 30(1046) 16=DEC-82 15:13 PAGE 199-1 

CNDVAA.P11 16=DEC=82 15:12 TTY INPUT ROUTINE SEQ 0113 
013340 012777 000100 165576 MOV #100, a$TKS y;RE-ENABLE TTY KBD INTERRUPTS 
013346 000002 15$: RTI +: RETURN 
013350 004767 177522 16$: JSR PC ,STYPEC S:ECHO CHAR 
013354 021627 000060 CMP (SP) , #60 t:CHAR < 0? 
013360 002420 BLT 18$ S:BRANCH IF YES 
013362 021627 000067 CMP (SP) ,#67 7:CHAR > 7? 
013366 003015 BGT : SBRANCH IF YE 
013370 042726 000060 BIC #60, (SP)+ t:STRIP-OFF ASCII 
013374 005766 000002 TST 2(SP) t:1S THIS THE FIRST CHAR 
013400 001403 BEQ 17$ ;3BRANCH IF YES 
013402 006316 ASL (SP) [NO, SHIFT PRESENT 
013404 316 ASL (SP) +: CHAR OVER TO MAKE 
013406 006316 ASL (SP) +: ROOM FOR NEW ONE. 
013410 005266 000002 17$: INC 2(SP) t:KEEP COUNT OF CHAR 
013414 056616 177776 BIS =2(SP), (SP) t:SET IN NEW CHAR 
013420 000707 BR g +:GET THE NEXT ONE 
013422 104401 001170 18$: TYPE SQUES sr TYPE 2<CR><LF> 
013426 000720 aaa BR 20$ S:SIMULATE CONTROL-U 


FRR EAE RAE EERE EEA ERATE AAKEAEREAAEAEREREREREEREREEREREE 


SS THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


**CALL: 
3* RDCHR 23 INPUT A SINGLE ere FROM THE TTY 
3* RETURN HERE CHARACTER IS ON THE STACK 

;* i otTH PARITY BIT STRIPPED OFF 


013430 011646 SRDCHR: MOV (SP) ,=(SP) PUSH DOwN THE PC 
013432 016666 000004 000002 MOV 4(SP) ,2¢SP) z3SAVE I HE PS 

013440 105777 165500 1$: TSTB a5iKS [WAIT FOR 

013444 100375 BPL 1$ tA CHARACTER 

013446 117766 165474 000004 MOVB  a$TKB,4(SP) :ZREAD THE T 

013454 042766 177600 000004 BIC rT EN 4(SP) z3GET RID OF yUNK IF ANY 
013462 026627 000004 000023 CMP 4(SP) ,#23 :1S IT A CONTROL-S? 
013470 001013 BNE 3$ :7BRANCH H IF NO 

013472 105777 165446 2s: TSTB © a$TKS WAIT FOR A CHARACTER 
013476 100375 BPL 2$ 3 OOP UNTIL ITS THERE 
013500 117746 165442 MOVB  a$TKB,-(SP) tIGET CHARACTER 

013504 042716 177600 BIC #*C177, (SP) +:MAKE IT 7-BIT ASCII 
013510 022627 000021 CMP (SP)+,#21 i315 IT A CONTROL-0? 
013514 001366 BNE 2$ 3e1F NOT DISCARD IT 
013516 000750 BR 1$ ‘YES, RESUME 

013520 026627 000004 000140 3$: CMP 4(SP),#140 t:1$ IT UPPER CASE? 
013526 002407 BLT 4$ : BRANCH IF YES 

013530 026627 000004 000175 CMP 4(SP),#175 [1S IT A SPECIAL CHAR? 
013536 003003 BGT 4$ ::BRANCH IF YES 

013540 042766 000040 000004 BIC #40,4(SP) S:MAKE IT UPPER CASE 
013546 000002 4$: RTI +:GO0 BACK TO USER 


FARA AA AAA AEA EA AREA AA EEARAAEAAARAAERAAHEAAARARERAARKERAK EAE 


*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


*CA 

;¢ RDLIN 72 INPUT A STRING FROM THE TTY 

;* RETURN HERE 7 :ADDRESS OF FIRST CHARACTER yi BE ON THE STACK 
;* 3; TERMINATOR WILL BE A BYTE OF ALL 0°S 
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013644 012766 013656 
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K 9 
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TTY INPUT ROUTINE 
SRDLIN: MOV R3,-(SP) sz SAVE R3 
1$: MOV #STTVIN,R3 :;GET ADDRESS 
23: CMP M$STTVYINe®S.,R3 3;BUFFER FULL? 
BLOS 4$ 33 IF YES 
RDCHR 3:GO READ ONE CHARACTER FROM THE TTY 
vB (SP)+,(R3) 3:GET CHARACTER 
10$: CMPB #177, (R3) sz1S IT A RUBOUT 
BNE szSKIP IF NOT 
4$: TYPE $QUES 32TV i ty 
BR 3;CLEAR THE BUFFER AND LOOP 
3$: or oo ::ECHO THE CHARACTER 
CMPB #15, (R3)+ s;CHECK FOR RETURN 
BNE :;LOOP IF NOT RETURN 
CLRB =-1(R3) 7:CLEAR RETURN (THE 15) 
TYPE LF zi TYPE A LINE FEED 
MOY (SP)+,R3 sZRESTORE R3 
MOV (SP) ,=-(SP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 
MOV 4(SP),2(SP) 33 FIRST ASCII CHARACTER ON IT 
MOV #$TTYIN,4(SP) 
RTI 7 RETURN 
9$: -BYTE O szSTORAGE FOR ASCII CHAR. TO TYPE 
-BYTE 0O aste 0 
STTYIN: .BLKB 8. - ; RESERVE 8 BYTES FOR TTY INPUT 
SCNTLU: .ASCIZ /*U/<i5><12> 33 TROL ‘U"’ 
SCNTLG: .ASCIZ /*G/<15><12> :: CONTROL ‘'G’’ 
SMSWR: .ASCIZ <15><12>/SWR = / 
SMNEW: .ASCIZ / NEW = / 


SEQ 0114 


-- 
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165054 
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TTY INPUT ROUTINE 


-SBTTL APT COMMUNICATIONS ROUTINE 


itvi: RO #1 SFFLG _acTO REPORT FATAL ERR 


1$: 


2$: 


12$: 


SMFLG: 
SLFLG: 


SFFLG: 


#1,SFFLG 
4H ,SHFLG 


TYC 
#1 LSFFLG 
RO,-(SP) 
R1,-(SP) 
SMFLG 
5$ 
#APTENV, SENV 
hatin 
pat nn 


#2,4 
SmSGIYPE 
1$ 


MOV RO, $MSGAD 
3;PUT ADDR IN MAILBOX 
TSTB (RO)+ 


2$ 
arate RO 


RO, $MSGLGT 
#4, SMSGTYPE 


a4(SP),4$ 

#2,4(SP) 
177776, (SP) 
C, $TYPE 


serie 

scuv 

pager ere 

peat SFATAL 
,4(SP) 

SHSGTYPE 


;;LOG FLAG 


3;TO REPORT FATAL ERROR 
3370 TYPE A MESSAGE 


33;TO ONLY REPORT FATAL ERROR 
:3PUSH RO ON STACK 
3PUSH R1_ON STACK 
£7 SHOULD ws A MESSAGE? 
i SOPERATING UNDER APT? 
3: SHOULD SPOOL MESSAGES? 


33GET MESSAGE a 


ADDR 
::SEE IF BONE W/ LAST XMISSION? 


z31F NOT: WAIT 


z3FIND END OF MESSAGE 


3SUB START OF MESSAGE 
:iGET MESSAGE LNGTH IN WORDS 
3;PUT LENGTH IN MAILBOX 
3;TELL APT TO TAKE MSG. 


;:PUT MSG ADDR IN JSR LINKAGE 
UMP RETURN ADDRESS 

PUSH 155976 ON STACK 

7:CALL TYPE MACRO 

is SHOULD REPORT FATAL ERROR? 

: :RUNNING UNDER APT? 

;SFINISHED LAST MESSAGE? 

QT: | WAIT 


3.GET ERROR # 
;BUMP RETURN a 
ss TELL abt is ERROR 
ey FATAL FLAG 


33POP STACK INTO R1 
eer A INTO RO 
7:MESSG. FLAG 


3;FATAL FLAG 


SEQ 0115 


i a wT 
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CNDVAA.P11 ——-16=DEC=82 15:12 COMMUNICATIONS ROUTINE SEQ 0116 
aM 000200 APTSIZE=~00 
; am 000001 APTENV: u01 
1 am 000100 APTSPOL! =100 
a) 040 APTCSUP=04U 
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APT COMMUNICATIONS ROUTINE 


-SBTTL ERROR HANDLER ROUTINE 


FERRARA RARER AAAAAAAAAAAAAT ATA AAA AA AAT AHA AAA HAA H HAA HAA AAT TTA Te 


TATHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 


T*SAVE THE ERROR ITEM NUMBE 
;*AND GO E 


SERROR: 


7$: 


1$: 


208: 


21$: 


228: 
2$: 


3$: 


4$: 


5$: 


6$: 


TO MYTYPE ON ERRO 
THE SWITCH hd +, PROVIDED BY THIS ROUTINE ARE: 


ON ERR 
INHIBIT ERROR TYPEOUTS 
ERROR 


R AND THE ADDRESS OF THE ERROR CALL 


BELL ON 
LOOP ON ERROR 
N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
:zTEST FOR CHANGE IN SOFT=SWR 
SERFLG T THE ERROR FLAG 
? SON N'T LET nae FLAG GO TO ZERO 
STSTNM, aDISPLAY :IDISPLAY TEST NUMBER AND ERROR FLAG 
#B81T10,aSWR : BELL L ON ERROR? 
1$ =NO = SKIP 
$BELL 33 RING BELL 
$ERTTL [COUNT T HE NUMBER OF ERRORS 
(SP) SERRPC GET ADDRESS OF ERROR INSTRUCTION 
@SERRPC,$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
#BIT13,aSWR 7: SKIP TYPEQUT IF SET 
20 33SKIP_TYP 
PC _MYTYPE 7:60 TO USER UERROR ROUT INE 
WAPTENV,SENV  ; ;RUNNING IN APT MODE 
33NO,SKIP APT ERROR REPORT 
SITEMB, ,218 ITEM NUMBER AS ERROR NUMBER 
PC, SATYA ‘UREPORT FATAL ERROR TO APT 
0 
228 :;APT ERROR LOOP 
aSWR +:HALT ON ERROR 
3$ 33SKIP IF CONTINUE 
?:HALT ON ERROR! 
is TEST FOR CHANGE IN SOFT=SWR 
#B1T09,aSwR 33b OOP _ON ERROR SWITCH SET? 
SLPERR, (SP) <TFUDGE RETURN FOR LOOPING 
SESCAPE : CHECK FOR AN ESCAPE ADDRESS 
SESCAPE,(SP) | :FUDGE RETURN ADDRESS FOR ESCAPE 
#SENDAD,a#42 =: sACT~11 AUTO-ACCEPT? 
6$ ;BRANCH IF NO 
7: YES 
7 RETURN 


SEQ 0117 
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ERROR HANDLER ROUTINE 


WILL INCREMENT 
$ E REG. (DISPLAY<7:0>) 
+ *AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<1 > 
se THE, SWITCH mies paovieye BY THIS ROUTINE ARE: 


; P ON TEST 
:*SW11=1 INHIBIT ITERATIONS 
:*S$wO9=1 LOOP ON ERROR 
+ *SWO8=1 LOOP ON TEST IN SWR<7:0> 
*CALL 
3* SCOPE :;SCOPE=I0T 
SSCOPE: 
CKSWR TEST FOR CHANGE IN SOFT~SwR 
1$: BIT #B1T14,aSWR 3 LOOP ON PRESENT TEST? 
BNE SOVER “VES IF SW14=1 
zHHNANSTART OF CODE FOR THE XOR TESTERS&#ee 
$XTSTR: BR x3 ii1F RUNNING ON THE "'XOR'' TESTER CHANGE 
THIS INSTRUCTION “NOP’' (NOP=240) 


TOA 
MOV @#ERRVEC ,-(SP) i ESAVE THE CONTENTS OF THE ERROR VECTOR 
MOV cee 23SET FOR TIMEOUT 


a#17706 ME OUT ON XOR? 
MOV (SP) +, a#ERRVEC i SRESTORE THE ow VECTOR 
BR $SVLAD THE NEXT TES 
5$: CMP (SP)+,(SP)+ 


SICLEA HS THE STACK AFTER A TIME OUT 
MOV (SP) +, a#ERRVEC 3 SRESTORE THE ERROR VECTOR 


BR 7 “LOOP ON THE PRESENT TEST 
6$:;4#HAHEND OF CODE FOR THE XOR Hee Rane 
BIT #B1T08,aSWR 7 LOOP on SPEC. TEST? 
BEQ 2$ ::BR IF NO 
CMPB OSuR, STSTNM 330N THE RIGHT TEST? — SWR<7:0> 


BEO :BR IF Y 
2$: td a.“ HAS - ERROR OCCURRED? 
ay SERMAX ,SERFLG i FOR THIS TEST OCCURRED? 
aM #B1T09,aSWR 331008 . ERROR? 
7$: ~y «sala 33SET LOOP ADDRESS TO LAST SCOPE 
4$: CLRB SERFLG 32ZERO = ERROR FLAG 
CLR STIMES soca THE NUMBER ad hl ne TO MAKE 
BR 1$ ESCAPE TO THE NEXT TEST 
3$: BIT #B1T11,aSWR INHIBIT ITERATIONS? 
BNE 1$ YES 
TST $SPASS ziIF FIRST vaet 4 PROGRAM 
BEQ 1$ INHIBIT ITERATION ie 
INC SICNT INCREMENT ITERATION cou 
CMP STIMES ,SICNT 2s CHECK THE NUMBER OF ITERATIONS MADE 
BGE SOVER F MORE ITERATION REQUIRED 
1$: MOV #1,$ICNT j:RE INITIALIZE THE ITERATION COUNTER 
MOV SMXCNT,STIMES ;;SET NUMBER OF ITERATIONS TO DO 
$SVLAD: INCB STSTNM 33 Cunt TEST N R 


NUMBERS 
MOVB STSTNM,STESTN SET TEST NUMBER IN APT MAILBOX 
MOV (SP) ,SLPADR SISAVE SCOPE LOOP ADDRESS 


SEQ 0118 


——— 


cl ll el el ee ed ed ed ed ed ed ed ed ed ed ed ed td dd td I td oz 
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MAINDEC=Z2-CNDVA=A MACY] 
_CNDVAA.P11 16=DEC=82 15:12 SCOPE HANDLER ROUTINESTARS SEQ 0119 
(1) 014614 011667 oh 154 MOV (SP) ,SLPERR 33 SAVE ERROR LOOP ADDRESS 
(1) 014620 005067 164336 CLR ate APE ssCLE/AR THE ESCAPE FROM ERROR ADDRESS 
(1) 014626 1127 000001 164263 MOVB 1, SERMAX 770NL” ALLOW ONE(1) ERROR ON NEXT TEST 
(1) 014632 016777 164244 164302 SOVER: MOV STSTNM, 1? aga ;EDISELAY TEST NUMBER 
(1) 014640 016716 164242 MOV SLPADR, (SP) 3sFUDGE RETURN ADDRESS 
3 014644 000002 RTI 2aFIXES 


PS 
014646 003720 $MXCNT: 2000. 33MAX. NUMBER OF ITERATIONS 
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SCOPE HANDLER ROUTINESTARS 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


PRRRRRReAReeeeAeee eee AeA eee ee tAAee ee eA eeeteeeeeeeeeeeeAeeeees 
TS THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
;*S1GNED DECIMAL (ASCII) NUMBER AND TYPE IT. sina at ON WHETHER THE 


POSITIVE OR yt gly A SPACE 0 
GIT OF THE 


;*REPLACED WITH SPACES. 


3*CALL: 


STYPDS: 


B 
8$: TSTB 


9$: CLRB 


be MOV 
TYPDS 


NUM,=(SP) 


RO,-(SP) 


R5 
#*=,10SP) 


#SDBLK,R3 
a »(R3)+ 


SOTBL(RO) RI 
R1,R5 


(SP) 
1(SP) ,-1(R3) 
& 


0,R2 


(SP)+ 


-1(SP) ,-2(R3) 
(R3) 


(SP)+*,R5 
(SP)+,R3 


MINUS SIGN WILL BE TYPED 
NUMBER. LEADING ZEROS WILL ALWAYS BE 


3;PUT_THE BINARY NUMBER ON THE STACK 
7:GO TO THE ROUTINE 


33PUSH RO ON STACK 


Ht te THE OUTPUT POINTER 
3;SET THE FIRST CHARACTER TO A BLANK 
3;CLEAR THE BCD NUMBER 


:3FORM THIS BCD DIGIT 
5 oR CREASE THE BCD DIGIT BY 1 


2ADD BACK THE rite t 
CHECK IF BCD T=0 

::FALL THROUGH it % 

eeSTILe } POINs LEADING 0°S? 


«* 
** 
ae 
m 
4 
4 
= 
m 
Sao 
m © 
= 
nn 
+ 
> 
~ 


: TBR IF NO 
SIYES=-SET THE SIGN 
+ MAKE THE BCD DIGIT ASCII 
MAKE IT A SPACE IF NOT ALREADY A DIGIT 
7:PUT THIS an he IN THE OUTPUT BUFFER 


3:GO DO THE NEXT DIGIT 
2360 7 EXIT 


e3GET T HE ‘es 
3:60 CHANGE’ ASCII 
ee WAS T THe sD THE FIRST NON-ZERO? 


FN 
3s YES~=SET THE ay FOR TYPING 


SEQ 0120 


co 


MAINDEC=Z7-CNDVA~A MACY11 30(1046) cat bf 15:15 PAGE 203-1 


CNDVAA.P11 16=DEC=82 15:12 ONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0121 
(3) 015030 012602 MOV (SP)+,R2 33POP STACK INTO R2 
(3) 015032 012601 MOV (SP)+,R1 33POP STACK INTO R1 
(3) 015034 012600 MOV (SP)+,RO 23POP sraek INTO RO 
(1) 015036 104201 015064 TYPE SDBLK NOW TYPE THE NUMBER 
(1) 015042 016666 000002 000004 MOV 2(SP) ,4(SP) SZADJUST THE STACK 
(1) 015050 012616 MOV (SP)+, (SP) 

(1) 015052 000002 RTI ; RETURN TO USER 
(1) 015054 023420 $DTBL: 10000. 

(1) 015056 001750 1000. 

(1) 015060 000144 00. 

(1) 015062 000012 10. 

(1) 015064 000004 $DBLK: .BLKW 4 


Mia oe eet 


MAINDEC=ZZ7=CNDVA=A macys! 30(1046) ais Si 15:13 PAGE 204 
CNDVAA.F11 16=DEC=82 15:12 ONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0122 
11631 
Wess -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
(2) PUReeeeeeeeeeeAeeeeeeeeeeeeeeeeeeeeneeereneeeeeeeereneeeneterers 
(1) TS THIS ROUTINE IS USED TO mer A 16-BIT BINARY NUMBER TO A 6-DIGIT 
(1) S*OCTAL (ASCII) NUMBER AND TYPE IT. 
433 $ » + sat tea HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
7* 
(1) ;* NUM ,=(SP) NUMBER TO BE TYPED 
(1) 7* TYPOS $ECALL FOR TYPEOUT 
(1) 3* -BYTE N 33;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
(1) 7* -BYTE ™ :3M=1 OR ot 
(1) i* 1=TYPE LEADING ZEROS 
() as : TO=SUPPRESS LEADING ZEROS 
3% 
(1) z*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
(1) 7*$TYPOS OR $TYPOC 
(1) *CALL: 
(1) se ened NUM, =(SP) ;;NUMBER TO BE TYPED 
if YPON 3;CALL FOR TYPEOUT 
at js STYPOC=-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
(1) s@ MOV NUM,=(SP) NUMBER TO BE TYPED 
He 3* TYPOC SICAL FOR TYPEOUT 
(1) 015074 017646 000000 $TYPOS: MOV a(SP),-(SP) 2 PICKUP THE MODE 
(1) 015100 116667 000001 000211 MCVB 1(SP), SOF ILL LOAD ZERO FILL SWITCH 
(1) 015106 112667 000207 MOVB (SP)+, S$OMODE +1 + NUMBER OF DIGITS TO TYPE 
(1) 015112 062716 000002 ADD #2, (SP) 3zADJUST RETURN ADDRESS 
(1) 015116 000406 BR S$TYPON 
(1) 015120 112767 000001 000171 $TYPOC: MOVB #1, SOF ILL 33SET THE ZERO ae i; he 
(1) 015126 112767 000006 000165 MOVB #6, SOMODE +1 22set FOR SIX(6) DIGITS 
(1) 015134 112767 000005 000154 S$TYPON: MOVB #5, SOCNT 3;SET THE ITERATION COUNT 
(1) 015142 010346 MOV R3,-(SP) ae F E R3 
(1) 015144 010446 MOV R4,-(SP) 73SAVE R4 
(1) 015146 010546 MOV R5,-(SP) 33 SAVE_R5 
(1) 015150 116704 000145 MOVB SOMODE +1. R4 3;GET THE NUMBER OF DIGITS TO TYPE 
(1) 015154 005404 NEG 
(1) 015156 062704 000006 ADD 76.86 :;SUBTRACT IT FOR MAX. ALLOWED 
(1) 015162 110467 000132 MOVB R4 , SOMODE 3;SAVE_IT FOR USE 
(1) 015166 116704 000125 MOVB SOFILL,R4 3;GET THE ZERO FILL SWITCH 
(1) 015172 016605 000012 MOV 12(SP),R5 :-PICKUP_THE INPUT NUMBER 
(1) 015176 005003 CLR R3 Soe TAT THE OUTPUT WORD 
(1) 015200 006105 1$ ROL R5 ROTATE MSB INTO *'C’’ 
(1) 015202 000404 BR 3$ ::G0 DO MSB 
(1) 015204 006105 23: ROL R5 TFORM THIS DIGIT 
(1) 015206 006105 ROL R5 
(1) 015210 006105 ROL 
(1) 015212 010503 MOV R5,R3 
(1) 015214 006103 3$: ROL R3 3;GET LSB OF Heat B DIGIT 
(1) 015216 105367 000076 DECB SOMODE 2 i TYPE THIS DIGIT? 
(1) 015222 100016 BPL 7 R_IF NO 
(1) 015224 042703 177770 BIC #177770,R3 $IGET a}? CF JUNK 
(1) 015230 001002 BNE 4$ 3T FOR 
(1) 015232 005704 TST R4 >;SUPPRESS THIS 0? 


mi = 
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CNDVAA.P11 16=DEC=82 15:12 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0123 
(1) 015234 001403 BEQ 5$ ::BR IF YES 
(1) 015236 005204 4$: INC RG ::DON'T SUPPRESS ANYMORE 0'S 
(1) 015240 052703 000060 BIS #°0,R3 S:MAKE THIS DIGIT ASCII 
(1) 015244 052703 000040 5$: BIS #’ [RB S:MAKE ASCII IF NOT ALREADY 
(1) 015250 110367 000040 MOVB = R33, 8S *:SAVE FOR TYPING 
(1) 015254 104401 015314 TYPE $ ::G0 TYPE THIS DIGIT 
(1) 015260 105367 000032 7$: DECB © $OCNT +:COUNT BY 1 
(1) 015264 003347 BGT 2$ [:BR IF MORE TO DO 
(1) 015266 002402 BLT 6$ t:BR IF DONE 
(1) 015270 005204 INC RG S:INSURE LAST DIGIT ISN'T A BLANK 
(1) 015272 000744 BR 2$ 3:GO DO THE LAST DIGIT 
(1) 015274 012605 6$: MOV (SP)+,R5 RESTORE R5 
(1) 015276 012604 MOV (SP)+.RG T:RESTORE R& 
(1) 015300 012603 MOV (SP)+_R3 T:RESTORE R3 
(1) 015302 016666 000002 000004 MOV 2(SP),4(SP) 33SET THE STACK FOR RETURNING 
(1) 015310 012616 MOV (SP)+. (SP) 
(1) 015312 000002 RTI + ;RETURN 
(1) 015314 000 8$: .BYTE 0 ::STORAGE FOR ASCII DIGIT 
(1) 015315 000 "BYTE 0 >: TERMINATOR FOR TYPE ROUTINE 
(1) 015316 000 SOCNT: .BYTE 0 szOCTAL DIGIT COUNTER 
(1) 015317 000 SOFILL: .BYTE 0 szZERO FILL SWITCH 
(1) 015320 000000 SOMODE: .WORD 0 ::NUMBER OF DIGITS TO TYPE 


MAINDEC=ZZ7=CNDVA=A MACY11 30(1046) 16=DEC-82 15:13 PAGE 205 

CNDVAA.P11 16=DEC=82 15:12 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0124 
11 
11 -SBTTL TRAP DECODER 
PAUReeeeeeeeeaeeeeeeeeeeeeeeeeeaeeeeneneeeeeeeeeeeeeeneeeeeeereese 
s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP*’ INSTRUCTION 
3;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 


s*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


015322 010046 STRAP: MOV RO,-(SP) 73SAVE RO 

015324 016600 000002 MOV 2(SP),RO 3;GET TRAP ADDRESS 
015330 005740 TST =(RO) 3;BACKUP BY 2 

015332 111000 MOVB (RO) ,RO: 3:GET RIGHT BYTE OF TRAP 
015334 006300 ASL RO zsPOSITION FOR INDEXING 
015336 016000 015356 MOV STRPAD(RO),RO ;; INDEX TO TABLE 

015342 000200 RTS RO 3:GO0 TO ROUTINE 


z3THIS IS USE TO HANDLE THE ‘'GETPRI'* MACRO 


$TRAP2: MOV (SP) ,=(SP) 7sMOVE THE PC DOWN 
MOV 4(SP) ,2(SP) 7sMOVE THE PSW DOWN 
R zsRESTORE THE PSW 


5 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

» 015344 011646 
» 015346 016666 000004 000002 
4 015354 000002 
; -SBTTL TRAP TABLE 
) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

} 

) 

) 

) 

) 


3 :*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
3 :*BY THE “‘TRAP’’ INSTRUCTION. 
: ROUTINE 

015356 015344 $TRPAD: .WORD $TRAP2 

015360 012664 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
3) 015362 015120 $TYPOC ::CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
3) 015364 015074 $TYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
3) 015366 015134 STYPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
3 015370 014650 STYPDS ::CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
; 015372 013216 SGTSWR ;:CALL=GTSWR § TRAP+6(104406) GET SOFT-SWR SETTING 

015374 013146 SCKSWR ::CALL=CKSWR | TRAP+7(104407) TEST FOR CHANGE IN SOFT-SwR 
3) 015376 013430 SRDCHR ::CALL=RDCHR §TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
3) 015400 013550 : TRAP+11(104411) TTY TYPEIN STRING ROUTINE 


SRDLIN ;;CALL=RDLIN 
73 THE FOLLOWING MACRO CALL TO CNMAC2.SML WAS ADDED TO INIT 


ARR RRR RFA AADR AAR RRRRRR A RRA AA AAA A ABBA AEE EEE PPP PP POO 


11636 
11637 33$8C11/21 SPECIFIC VECTORS 
11638 015402 POINT=, SAVE POINTER 
1) 000100 -=100 
1) 000100 015402 SCLKVEC zLKVEC HANDLER 
1) 000102 000300 300 : INTERRUPT HANDLER PRI 
1) 000140 -=140 2 BRKVE 
1) 000140 170000 170000 ;ODT START ADDRESS 
1) 000142 000300 300 zPR TY 
1) 015402 .=POINT zRESTORE POINTER 
1) 015402 104401 015410 SCLKVEC: TYPE ,CLKMES 
1) 015406 00000 HALT 
1) 015410 005015 045514 042526 CLKMES: .ASCI2 <15><12>/LKVEC INTERRUPT = DISCONNECT LTC / 


MAINDEC=Z7-CNDVA=A MAC 
CNDVAA.F 5 


16=DEC=82 15:1 
5416 020103 04 
0 0 


SEQ 0125 


E 
a 
1) 
1) 
1) 
1) 0 
1) 5446 046040 0 
39 000001 ~END 


MAINDEC=Z7=CNDVA=A 


CNDVAA.P11 


ABASE = 175610 
ACDW1 = 000000 
ACDW2 = 000000 


ACPUOP= 
ADDRES 012352 
ADDWO = 


APASS = 000000 
APRIOR= 000000 
APTCSU= 000040 


@ 
> 
J 
@ 
z 
x 
So 
—_ 
=a 
w 
NM 
N 


BAUD = 007400 
'BAUDRA 007210 
| 


79694 
9049 
9049 
9049 
11581* 
9049 


9 
112954 

90404 
107224 


J 10 
MACY11 30(1046) 16=DEC-82 15:13 PAGE 206 
16=DEC=82 15:12 


CROSS REFERENCE TABLE == USER SYMBOLS 
9049 


11586* 11591 11596 


9049 


0 
3 10641 11104 11614 11620# 11623 
0 


SEQ 0126 


MAINDEC=Z7-CNDVA~A 


CNDVAA.P11 
BITMAS pieaae 


ae 


rnnnnnnnnnnnnnnnnnnnnnnnnnn 
Nm 
o 
o 
So 


wo 
Vv 
“4 
< 
m 
oO 
' 
_ 
ce 
Sk8 


at a ad ad sg ad ag gd dd nd at at mt at at tt 


I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
IT 


DATA = = 000017 


DLADD 001254 
DLADDR= 175610 
DLVEC 001256 
DSWR = 177570 
DTR = 000002 


EMTVEC= o00030 
ERRCNT 011022 


Pie RPS ee POS ee, 


11570 
89278 


11151 


MACY11 30(1046) 
16=DEC=82 15:12 


11579 


eed 
coco —— Oo 
oo AOO 
Vi“n formu 
—N WOU 


K 10 
15:13 PAGE 206-1 


CROSS REFERENCE TABLE == USER SYMBOLS 


16=DEC-82 

11585* 11589 115944 
$003 9026 

8981 9025 

8980 9001 9024 
8979 9023 

9022 

8977 9021 

8976 8997 9020 
8975 8996 9019 
11626 

11623 

8991 11626 

8970 8990 

8969 8989 11623 
8968 8988 11626 
8967 8987 

9162 9164 9173 
11269 

9779 9854 9927 
9811 9825 

116354 

11373 

9884 9898 

11306 §=611534 =11614 
9520 9522 9531 
10101 §=10113 10118 
11108 114194 

9062 

11623* 11626* 

9076 9078 9079 
9053 9054 9055 
10753 = 10845 10945 
9062 

9347 9356 9357 
10128 

11168 111784 11226 


9175 


10000 


95 
10129 
9080 
9056 
11134 
9365 


11232* 


9184 


10075 


9187 


10155 


9545 
10196 


9082 
11544 
9795 


11280 


10232 


10910 
10209 


9105 


9809 


10903 


10924 
10261 


9122 


9823 


11031 


10941 
10273 


11307 


9868 


11542 


9882 


SEQ 0127 


9896 


L_10 
‘MAINDEC=ZZ-CNDVA-A MACY11 30(1046) 16=DEC-82 15:13 PAGE 206-2 


‘CNDVAA.P11 —— 16=DEC=82 15:12 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0128 
ERROR = 100000 89674 10569 10609 
‘ERRVEC= 000004 8927" 9062" 11626* 
EVENOD= 000040 90344 
|FALSE = 000000 113614 11365 
FLAG 011640 11365* 11381" 11384 11396 11403# 
|FRERR = 020000 89694 
‘FRED = 040000 90434 9340 9391 9779 9854 9927 10075 10155 
iGNS = teeeee Y 9045 9063 11306 11308 11310 11534 11536 11539 11541 11543 11635 
GTSWR = 104406 9063 116354 
HOLD 011066 11194* 11196 112054 
HOLDSC 011641 11373* 11375" 11379 114048 
HOWLON= 000000 11331# 11364 
‘HT = 000011 89274 11614 
001272 90584 9108 9121* 9122 9123 11444 
ILLMEM= 000004 89284 9107 9124 
INITFL 012350 9068 11571 11572* 11595# 
INTFLA 012034 iiss 8, 10750* 10780 10782 10795* 10810 10848* 10878 10880 10908* 10930 10932 
‘ * 

INTSRV 012026 9107 10757 10845 11505 
IOTVEC= 000020 89274  9062* 

. 12 89274 11614 
LKVEC = 000100 89278 
LOOP 001744 90694 11313 
MAINT = 000004 90014 9211 9219 9221 9230 9232 9241 9244 10366 10411 10461 10647 10850 

10890 10964 11014 11036 11155 11273 

MASK = 000000 11419# 11441% 11445* 11446" 11448 

A 06422 10475 10476 105214 
MYTYPE 012036 115284 11623 

07242 10658* 10659* 10666* 10667* 10672 10676 10687 10688 107244 

NUMBER 011024 11165  11179# 11198 11236 
NUMBR 011742 11442* 11444 114504 
ODTST = 17 89274 

D 007246 10645" 10646* 10672 10676 10687* 10688* 107254 

RR = 040000 9684 10558 10583 10600 

PARITY= 000020 90334 

AUDS= 004000 89914 
PBAUDO= 010000 89904 
PBAUD1= 020000 89894 

AUD2= 040000 89884 
PBAUD3= 100000 8987# 
PBR = 000200 90364 10637 
PERR = 010000 89704 
PIRQ = 177772 89274 
PIRQVE= 000240 89274 
POINT = 015402 116384 
PRO = 000000 - 89274 10767 10803 10859 10917 10972 11043 11128 
PR1 = 000040 89278 
PR2 = 000100 89278 
PR3 = 000140 89278 
PRA = 000200 89278 
PRS = 000240 89278 , 
PR6 = 000300 89274 9062 9107 9266 10086 10166 10242 10757 10845 11137 11141 11611 
PR7 = 000340 89274 
PSs =: 177776 89278 
PSwW = _-177776 89278 
PWRVEC= 000024 8927# 9062* 11611* 


poor ee re ene a nes ee ee - ——- - -— —-- 
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'MAINDEC=22=CNDVA=A MACY! 
\CNDVAA.PI1  16=DEC~82 15:12 CROSS REFERENCE TABLE c= USER SYMBOLS SEQ 0129 
|RATES 007170 19652, 19692 106968 
‘RBUF~ 001262 9054" 9079* 10438 10480 10513 10555 10583 10600 10609 10650 10875 10980 10995 
| 110530, 11064 11219. 11276 11289 
'RCSR 001260 90534 9078* 9345" 9347 9356" 9357 9365" 9367 9398  9406* 9408  9417* 9419 
| 94.28% 9431 9455 9463" 9465 9474% 9476 9485" 9488 9512 9520" 9522 95318 
| 9533 9542* 9545 9569 9577* 9579 9588 9590 9599% 9602 9636 9699 
9795* 9797 9809" 9811 9823* 9825 9868 9870  9882% 9884  9896* 9898 9942« 
9944 9956" 9958  9970* 9972 10014* 10016 10028* 10030 10042* 10044  10095« 
10101 10112" 10113 10118 10128 10129 10176* 10180 10182 10193" 10196  10206* 10209 
WO251* 10252 10258 10261 10270" 10273 10376 10391, 10421 10435. 10470 10489 10491 
492 10503 10515 10661 10852* 10870 10872* 10892* 10910* 10922" 10924* 10925* 10941« 
10942* 10993 11061 111608 11174" 11238 11283 
RCVRAC= 004000 8951" 9738 10470 10489 10492 
RCVRDO= 000200 18933 9636 10376 1039110427 10435-10491 10503 10515 10661 10870 10993 11061 
RCVRIE= 000100 8956" 9569 9577 9579 9588 9590 9599 9602 10852 10872 10892 11160 11238 
RDATAO= 000001 89824 
RDATAI= 000002 89818 
RDATA2= 000004 89804 
RDATAS= 000010 89798 
RDATA4= 000020 89784 
RDATAS= 000040 89778 
RDATA6= 000100 89768 
RDATA7= 000200 89754 
RDCHR = 104410 11617, 116354 
RDLIN = 104411 116354 
REC 011072 11136 112134 
REG = 000004 113314 11363 
REGSAV 011634 11363* 11372 114014 
REQSEN= 000004 8960 9398 9406 9408 9417 9419 9428 9431 9942 9956 9970 10176 10193 
10206 10922 10925 10942 
RESVEC= 000010 89278 
RHLD 011162 11291* 11224 11228 11245 
RING = 040000 89484 9944 9958 9972 
ROOSO 007170 10705# 
R0070 007171 706M 
RO110 007172 107078 
RO13S 00717 107084 
RO150 007174 107094 
R0200 007177 107128 
RO 007175 107108 
R0600 007176 107114 
R 007207 107208 
R1800 007200 107134 
R2000 007201 107148 
00 007202 107154 
R3600 007203 107168 
00 007204 107178 
RSSTAC 001334 9060# 9083 
R7200 007205 107188 
R9600 007206 107198 
SB 011026 111804 112288 
SECREC= 002000 89524 10016 10030 10044 
SECKMI= 000010 18959" 9455 9463 9465-9474 9476 © 9485 -94BB_ 10014 10028 1004210251 10258 
SET = 177777 8940# 10314 10341 10376 10421 10471 10475 10870 10988 10993 11057 11061 11283 


MALNDEC=27=CNDVA=A MACY11 30(1046) 16=DEC-82 15:13 PAGE 206-4 
CNDVAA.P11  16=DEC=82 15:12 CROSS REFERENCE TABLE == USER SYMBOLS 
| 11375 
SETCLR= 000006 11331# 11379 
‘SPECIA 012250 11576# 11608 
(STACK = 001100 89274 9062 
R ART 001336 9045 9062" 11611 
STKLMT= 177776 89278 
Sw 1140 9049# 9062* 9063 11611* 11617* 11623 11626 
| SWREG OO01Te 90454 9062 9063 11617 
swO. = 000001 89274 
swOO = 000001 89278 
Sw01 = 000002 89278 
SwO2 = 04 89278 
swO3 = 000010 89278 
SWw04 = 000020 89278 
swOS = 000040 89278 
Sw06 = 000100 89278 
Sw07 = 000200 89278 
SWwO8 = 000400 89278 
swO9 = 001000 89278 
SWl = 02 89278 
SWw10 = 002000 8927# 
SW11 = 004000 89278 
SW12 = 010000 89274 
Sw13 = 020000 89278 
SW14 = 040000 89278 
SWw15 = 100000 89278 
SW2 = 000004 89278 
SW3 = 000010 89278 
Sw4 = 000020 89278 
SWS = 000060 89278 
SWw6 = 000100 89274 
SW? = 000200 8927# 
SWB = 000400 89278 
Sw9 = 001000 89278 
TBITVE= 000014 89274 R 
TBUF 001270 90574  9082* 10310* 10329* 10371* 10417* 10468* 10545* 10550 
11060* 11196" 11282 
TCSR 001264 9055@ 9080" 9154  9162% 9164 9173* 9175 9184" 9187 
9232. 9241* 9244 9279 9287* 9289 9298 9300 9309« 
10341 10366* 10411* 10461* 10647* 10760* 10774* 10797* 10850* 
11036* 11057 11155* 11158* 11173* 11200* 11273* 11280* 
TCSRHI 001266 90564 9081* 10652* 10692 
TDATAO= 000001 90264 
TDATA1= 000002 90254 
TDATA2= 000004 90244 
TDATA3= 000010 90234 
TDATA4= 000020 90224 
TDATAS= 000040 90214 
TDATA6= 000100 90204 
TDATA7= 000200 90194 
IME = 000000 114644 11481 
TIMER 011470 10314 10341 10376 10421 10870 10988 10993 11057 11061 
TIMSAV 011636 11364* 11384 11389* 114024 
TKVEC = 00006 89274 
TPVEC = 000064 89278 
TRAN 011030 11140 111884 


a eee es See eT a Seen or ae 


10596* 
9211 
9312 

10890* 


11283 


10656* 
9219* 
9668 

10964* 


113314 


10866* 


9221 
10314 
10988 


SEQ 0130 


10991* 


9230* 
10333 
11014* 


—— ae 


_<<<——<<—_nemeema te CCC CC lll LLL LLL LL 
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MAINDEC=77=CNDVA-A 


MACY11 30(1046) 


16=DEC-82 


15:13 PAGE 


206-5 
CROSS REFERENCE TABLE == USER SYMBOLS 


CNDVAA.P11 15:12 

TRAPVE= 000034 8927" 062* 
TRTIVEC= 000014 89278 

TRUE = 000001 113604 11381 11384 

STi 002060 91004 

TST10 003412 95044 

TST11 003554 95614 
TST12 00371 96254 

TST13 003756 9657# 
TST14 004016 96894 
TSTIS 004056 97228 

TST16 004136 731 97734 

TST17 004276 9783 8484 
'TST2 002226 91420 
TST20 004436 9856 99214 

TST21 004576 9930 99948 

TST22 004736 10002 100694 
'TST23 005142 10078 101494 
'TST24 005366 10158 214 10226# 

TST25 005554 10234 102934 

TST26 005742 10301 10359# 

TST27 006056 104044 

ST3 002410 9149 92024 

TST30 006166 104514 

TST31 006424 10459 10481 10497 10520 105334 

TST32 00667 10563 10576 10588 10606 10615 106324 
TST33 007252 10638 10642 10694 107444 

T34 007524 108384 

TST35 010146 10905  10958# 

T5736 ©: 010362 11009 110264 

TST37 010610 11033 11074 110964 

TST4 © 002552 92604 

TST40 011166 11105 11176 11264# 

TST41 011350 11270 11294 113054 

TSTS 062726 93354 

TST6 003066 9341 93864 

TST? 003250 9392 94474 

TYPDS = 104405 11311 11608 116354 

TYPE = 104401 9063 11306 17308 11310 11534 11536 11539 11541 11543 11608 11611 11614 11617 

11623 11629 11632 116354 11638 

TYPOC = 104402 11307. 11309 «= 11535. Ss-«11538 )»=- 11540) »=- 11542-11544 11617-1116 35# 
TYPON = 104404 116354 

TYPOS = 104403 116354 

VECTOR 012354 11582* 11587* 115974 
WAIT 011746 10097 10178 10195 10208 10260 10272 10547 10552 10598 10777 10809 10874 10927 
WAS 011027 111814 11229 
WHICHB= 000002 113314 11372 

XMITIE= 000100 18997" 19389 9287 9289 9298 9300 9309 $312 10760 10774 10797 11158 11173 
XMITRD= 000200 89964 9668 10314 10333 10341 10988 11057 
222 011070 11203 112074 

2222 =: 011164 11243 11246# 

$APTHD 001000 90484 

SASTAT= seee02 11620 

$ATYC 013746 116204 

$ATY1 013722 116204 


aa I ela I aN ae le EOE es nC ee Ne a 
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MAINDEC=ZZ-CNDVA-A MACY! ' 
CNDVAA.P11 16=DEC=82 15:12 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0132 ( 
SATY3 013730 11614 116208 ' { 
SATY4 013740 116204 11623 { 
SAUTOB 001134 90494 9063* 11617 1 
$BASE 001250 90494 11581 | 
'$BDADR 001122 90494 r 
‘$BDDAT 001126 90494 { 
‘SBELL_ 001164 90494 11623 | 
\$BGNLE= 177777 79624 | 
SCHARC 013142 116144 { 
SCKSWR 013146 116174 11635 if 
SCLKVE 015402 116384 i 
‘SCMTAG 001100 90494 9062 if 
'$CM3 = 0000 90494 { 
\SCNTLG 013673 116174 i! 
'SCNTLU 013666 116174 4 

CPUOP 001222 90494 if 
SCRLF 001171 90494 11614 11617 11623 F 
/SDBLK 015064 116294 { 
$DEVCT 001204 90494 11580* 11592 ‘ 

DEVM 001252 90494 11589 4 
SDOAGN 012456 116084 { 
$DTBL 015054 116294 { 
SENDAD 012446 9046 9063 11608% 11623 
SENDCT 012414 9062 116084 
SENDMG 012465 116084 
SENULL 012462 116084 
SENV. 001214 9049 9063 10300 10458 10641 111046 11614 11620 11623 
SENVM 001215 90494 9062 11614 11620 
SEOP 012360 11574 116084 
SEOPCT 406 9062* 116084 
SERFLG 001103 90494 11623* 11626 
SERMAX 001115 90494 9062* 11626 
SERRFL= 000000 90734 90754 90764 90784 90794 90804 90814 90824 90834 9105# 9107# 





94154 94174 94284 94534 94624 94634 94724 94748 94824 94854 95108 95198 
potee 95294 95314 9540# 95424 95674 95764 9577# 9586H 95884 S250 95994 96354 
986 98794 98824 98934 9896% 99304 9939H 99424 99534 99674 9970# 

100114 100144 100254 100284 10039% 10042 100784 1009354 10095# 100974 100994 10109# 10112# 
101254 101284 101584 101734 101764 10178# 101804 101894 101934 101954 10203# 102064 10208# 
102344 102514 102524 102554 102584 10260 102684 102704 10272# 103014 10303 10310# 10314# 
103234 103294 103414 103664 103684 10371# 103764 103864 104114 104124 104174 104214 104334 
104594 104614 104624 104634 104684 104714 104734 104804 104814 104974 105134 105394 10545# 
10547# 105504 105524 105554 10563# 105684 10576# 105804 105924 10590# 105984 10606 106384 
106424 106454 10646 106474 10649# 106504 106524 106544 106564 106584 106594 106634 106664 
106674 106874 106884 106914 106924 10750# 107534 107554 107574 10758 107604 107744 107778 
107934 10795 107974 108094 10817# 108454 108474 108484 108504 108524 108664 108704 108724 
108744 108754 108904 108924 10902# 109054 10908# 109104 109224 10924# 109254 10927# 10941# 
109424 10945# 109464 109644 109784 10980# 109834 109884 109914 10993# 10995# 110024 110034 
110094 110144 11033 110364 11049% 11050# 110524 110574 110604 110614 110644 11067# 11068¢ 
110744 111054 111084 111344 11136 111374 11140 111414 11144 111464 111484 111514 111554 
111584 11160 111734 111744 11192# 11194 11196 112004 112174 11219# 432214 112284 112298 
112324 112384 112704 11273 11276# 11280 112824 112834 4135634 115644 1135654 1135735# 11375# 
113814 113884 11389# 113597# 11599% 114418 114424 114448 114454 114464 114484 114814 114828 
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MAINDEC=Z7=CNDVA=A MACY] 
CNDVAA.P11 16=DEC-82 15:12 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0133 
Bs td \136e8 115724 11574 11577# 13579# 115804 115814 115824 115844 115854 115864 115874 
SERROR 014170 9062. 116234 
|SERRPC 001116 90494 11540 11623* 
SERRTB 001254 90494 
SERTTL 001112 90494 11311 11312* 11623* 
‘SESCAP 001162 90494 9062* 11625 11626* 
ETABL 001214 90494 
SETEND 001254 9048 90494 
| SEATAL 001176 0494 11537* 11538  11620* 
SFFLG 014166 116204* 
SFILLC 001156 0494 11614 
iSFILLS 001155 90494 11614 
|SFSAND= 000310 79624 = =69116 9148 9154 9164 9175 9187 9211 9221 9232 924 9279 9289 
9300 9312 9340 9347 9357 9367 9391 398 940 9419 9431 9455 
9476 9488 9512 9522 9533 9545 9569 9579 9590 9602 963 9668 9699 
| 9729 9738 9779 9797 9811 9825 9854 9870 9884 9898 9927 9944 9958 
9972 10000 10016 10030 10044 10075 10101 10113 10118 1012 10155 = 1018 0196 
10209 10232 10261 10273 10300 10333 10391 10435 10458 10470 10476 10489 10491 
10492 10503 10515 10558 10569 10583 10600 10609 10637 10641 10660 10661 10672 
| 10676 10780 10782 10810 10878 10880 10903 10930 10932 11006 110351 11071 11104 
11168) =6.11198 )§=. 11224-11226): 11236): 111269): 11289-11372) 111379): 11396 )=—s 11570): 11571 
$FSBAD= 000401 79624 9116 9148 9154 9164 9175 9187 9211 9221 9232 9244 927 9289 
9300 9312 9340 9347 9357 9367 9391 9398 9408 9419 9431 9455 9465 
9476 948 9512 9522 9533 9545 9569 9579 9590 9602 9636 9668 9699 
| 9729 9738 9779 9797 9811 9825 9854 9870 9884 9898 9927 9944 9958 
9972 10000 10016 10030 10044 10075 10101 10113 10118 10129 10155 10182 10196 
10209 10232 10261 10273 10300 10333 10391 10435 10458 10470 10476 10489 10491 
10492 =©10503 §=10515 10558 10569 10585 10600 10609 10637 10641 10660 10661 10672 
10676 10780 10782 10810 10878 10880 10903 10930 10932 11006 11031 11071 11104 
11168 =611198)=— 11224-11226): 11236) )=— 111269) «11289-11372 = 11379) «11396 )3=— 111570) 115771 
$FSBLA= 000170 79624 
SFSCAS= 000150 79624 
$FSDEC= 000220 79624 
F$GOO= 00040 79624 869116 9148 9154 9164 9175 9187 9211 9221 9232 9244 9279 9289 
300 9312 9340 9347 9357 9367 939 9398 9408 9419 9431 9455 9465 
9476 9488 9512 9522 9533 9545 9569 9579 9590 9602 9636 9668 96 
9729 973 9779 9797 9811 9825 9854 9870 9884 9927 9 9958 
9972 10000 10016 10030 10044 10075 10101 10113 10118 10129 10155 10182 101 
10209 10232 10261 10273 10300 10317 10333 10342 10379 10391 10423 104 10458 
10470 §=10476 10489 10491 10492 10503 10515 10558 10569 10583 10600 10609 10637 
10641 10660 10661 10672 10676 10780 10782 10810 10878 10880 10903 10930 10932 
11006 §=611031) = 11071) Ss 11104 11168 )3=—11198)— 14224 11226): 11236) )=—- 111269) 11284) «11289 =): 11372 
11379 «11396 )=—- 11570-11571 
SFSIF = 000110 79624 9116 9119 9148 9150 9154 9157 9164 9167 9175 9178 9187 9190 
9211 9214 9221 9224 9232 9235 9244 9247 9279 9282 9289 9292 9300 
9303 9312 9315 9340 9342 9347 9350 9357 9360 9367 9370 9391 9393 
9398 9401 9408 9411 9419 9422 9431 $434 9455 9458 9465 9468 9476 
9479 9488 9491 9512 9515 9522 9525 9533 9536 9545 9548 9569 9572 
9579 9582 9590 9593 9602 9605 9636 9643 9668 9675 9699 9708 9729 
9732 9738 9749 9779 9784 9797 9802 9811 9816 9825 9830 9854 9857 
| 9870 9875 9884 9889 9898 9903 9927 9931 9944 9949 9958 9963 997 
9977 10000 10003 10016 10021 10030 10035 10044 10049 10075 10079 10101 10104 
| 10113) 10116 = 101178 )3=— 10127) 10129) 10132): 10155 Ss 10159): 10782) )S «10185 »=—s 10196 )3=—s-« 10199): 10209 
10212 §=610232 = 10235. Ss 10267 »3= 10264 »=—s: 10275 Ss: 10275 »=610300 )3=s: 10302)Ss «10317 +3=—s «10320 «110333 =: 10336 
10342 = 10345 10579) 10382): 10391) 10394 = 10423. 10426 )3=—:110435 =: 10438 = 10458 += 10460 =: 10470 
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SFSNO = 000403 
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ACY] 

CNDVAA.F11 16=DEC=82 15:12 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0135 
99774 10000# 100034 100164 100214 100304 100354 10044# 100494 100754 100794 101014 10104# 
101134 101164 101184 101214 10129# 101328 101554 101594 101824 101854 101964 10199% 102094 
102124 10232 102354 102614 10264# 102734 10276 10300# 103024 103174 10320# 103334 103364 
10342# 103454 10379# 103824 10391# 10394# 104234 10426# 104354 104384 104584 104604 10470# 
104744 10476 104824 104914 104924 10498# 10499% 105054 105074 105154 10518# 105584 105644 
105694 105774 105834 105894 10600# 106074 106094 106134 106374 106394 10641# 106434 106614 
106684 106724 106764 106844 106854 107804 107824 107894 10790# 108104 10813# 108784 108804 
108874 108884 109934 109064 109304 1093524 109594 10940# 110064 110104 110314 110344 110714 
110754 11104# 111064 111684 111718 111984 112014 112244 112264 112304 112334 112364 112404 
112694 112714 112844 112874 11289# 112924 115724 113764 11379# 1135824 113964 113984 115704 
115714 115784 115884 

SILLUP 012646 116114 

SINTAG 001135 90494 11617 

$1SKO = 000001 91164 9119 91484 91544 7 91644 167 91754 17 91874 9190 92114 
9214 92214 92324 92444 9247 92794 928 92894 92 93004 03 
9312@ 9315 93404 93478 50 93574 9360 93574 70 9391# 9393 93984 

94084 9419 9422 94318 9434 9455#@ 945 94654 94764 
94884 9491 95124 95228 5 95334 9536 95454 & 95694 95794 
95904 96024 96364 9643 96684 6 96994 97298 97 

97384 974 9779# 9784 9797#% 9802 98114 9816 98254 30 98544 98704 
9875 98844 9889 98984 9903 9927# 9931 99444 9949 99584 9963 99724 9977 
10000# 10003 10016 10021 10030 10035 10044# 10049 10075# 10079 10101# 10104 101134 
10116 =. 1011 10121 §=101294 10132 101554 10159 101824 10185 10196# 101 102094 10212 
102324 10235 102614 10264 10273# 10276 10300 10302 103174 19320 103334 10336 103428 
10345 103794 10382 103914 10394 10423# 10426 104354 10438 104584 1046 10470# 10474 
104764 10482 104914 10499 10503# 10507 10515 10518 105584 564 105694 10577 105834 
10589 10600 10607 106094 10613 10637# 1063 106414 10643 106614 1066 106724 10685 

107804 10790 108104 10813 10878# 10888 109034 10906  10930# 940 119060 11010 §=11031# 
11034 38110714 #11075 111044 11106 111684 1117 11198# 11201 11224# 1123 112364 11240 
lige 11271 = 112844 11287 112894 11292 11372# 11376 11379# 11382 113964 11398 115704 

/$I1SK1 = 000001 soe3ee 10498 106764 10684 107824 10789 108804 10887 10932 10939 112264 11230 115714 

|SITEMB 001114 90494 11537 11623* 

, SLF 001172 90494 11614 11617 11623 

|SLFLG = 014165 116204 

$LOCTA= 177777 79624 9109 9116 9119 9123 9148 9150 9154 9157 9164 9167 9175 9178 

9187 9190 9211 9214 9221 9224 9232 9235 9244 9247 9279 9282 9289 

| 9292 9300 9303 9312 9315 9340 9342 9347 9350 9357 9360 9367 9370 
9391 9393 9398 9401 9408 9411 9419 9422 9431 9434 9455 9458 9465 
9468 9476 9479 9488 9491 9512 9515 9522 952 9533 9536 9545 9548 

9569 9572 9579 9582 9590 9593 9602 9605 9636 9643 9668 9675 9699 
9708 9729 9732 9738 9749 9779 9784 9797 9802 9811 9816 9825 9830 

9854 9857 9870 9875 9884 9889 9898 9903 9927 9931 44 9949 9958 

9963 9972 9977 10000 10003 10016 100217 10030 10035 10044 10049 10075 10079 

10101 10104 10113 10116 10118 10121 10129 10132 10355 10159 10182 10185 10196 
10199 10209 10212 10232 10235 10261 10264 10273 10276 10300 10302 10317 10320 
10333 10336 10342 10345 10379 10382 10391 10394 10423 10426 10435 10438 10458 
10460 10469 10470 10472 10474 10475 10476 10482 10489 10491 10492 10498 10499 
10500 10503 10507 10515 10518 10558 10564 10569 10577 10583 10589 10600 10607 
10609 10613 10637 10639 10641 10643 10649 10660 10661 10664 10668 10670 10672 
10674 10676 10678 10684 10685 10690 10780 10782 10785 10789 10790 10810 10813 
10878 10880 10884 10887 10888 10903 10906 10930 10932 10936 10939 10940 10983 
11006 §=6©.11010) §=11017 11031 11034 11052 11071 11075 11077 11104 11106 11164 11165 
11168) =6.11177') 11198 )=— 11201): 11224 =: 11226) 11230 Het 11236 §=611240)=— 11269-11271 11284 
11287) 11289) 11292) s:« 11331-11370) 11372) -11374 3S «11376-11579 - 11382) s« 11384 )=s:*111590)S:«111396 
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MAINDEC=77-CNDVA=A MACY] 

CNDVAA.P11 16=DEC=82 15:12 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0136 
11397-11398 )=— 11399-11406) 11419) 134440 11447) 11449) 11451-11464) = 111482) 11483): 111484 
11388 \1398 11528 §=11549 «811552 «611569 =11570 39115717 3=11575) Ss 11578 )3=s-:11585) =: 11588 =: 11589 

SLPADR 001106 90494 9062* 11626* 

SLPERR 001110 9049 9062 9110" 91525 9161* 9171" 9182% 9209% 9218 9228 9239% 9277* 9286+ 
9296* 9307* 9344* 9354* 9364* 9396* 9405" 9415% 94264 9453* 9462 9472 94828 
9510" 9519% 9529% 9540" 9567" 9576* 9586 9597" 9635*  9666* 9698 9736+ 9792s 
9806* 9820* 9865*  9879* 9893+ 9939 9953* 9967* 10011* 10025* 10039* 10093* 10109* 
10125* 10173* 10189* 10203* 10255* 10268* 10303* 10323* 10368* 10386* 10412* 10539* 10568 
10580* 10592* 10758* 10793* 10847* 10902* 116235 11626* 

SLSTCN= 177777 7962# 879654 9109 9116 9119 9125 9148 9150 9154 9157 9164 9167 9175 
9178 9187 9190 9211 9214 9221 9224 9232 9235 9244 9247 9279 9282 


9699 9708 9729 973 9738 9749 9779 9784 9797 9802 9811 9816 9825 

9830 9854 9857 9870 9875 9884 9889 9898 9 9927 9931 9944 9949 

958 996 9972 9977, 10000 10003 10016 10021 0030 10035 10044 10049 10075 

| 10079 = 10107 39s 10106. 10113) 10116)3=s 10178 3910127 )3=s 10129): 10132)»= 10155 9 10159 »9= 10182 )=Ss: 10185 

10196 §=©10199 10209 10212 10232 10235 10261 10264 10275 10276 10300 10302 10317 

10320 10333 10336 10342 10345 10579 10382 10391 10394 10423 0426 0435 10438 

10458 10460 10469 10470 10472 10474 10475 10476 10482 10489 10491 492 10498 

10499 10500 10503 10507 10515 10518 10558 10564 10569 10577 10583 10589 10600 

10607 10609 10613 10637 10639 10641 10643 10649 10660 10661 10664 10668 10670 

10672 10674 10676 10678 10684 10685 10690 10780 10782 10785 10789 10790 10810 

10813 10878 10880 10884 10887 10888 10903 10906 10930 10932 10936 10939 10940 

10983 §=©11006 §=11010 11011 11031 11034 11052 11971 11075. = 11077) Ss 11104) 11106): 11164 

11165) 17768 = 11777) 11198) = 11201) 11224) 11226): 11230) 11235) 11236 = 11240) 11269) s-1127711 

112846 «611287 = 11289): 11292): 11331) 11570) 11372) 11374 = «111376 )3S 11379) «113820: 11390) «11396 

11398 §=611406 «= 11419) 11444 11447) 11451114640 11482) 11483) 11484) 11485 Ss 11495): 111528 
11549 11552 11569 11570 11571 11573 11578 115835 11588 11589 11599 

$LSTIN= 000000 79624 79634 9068 9070 9073 9075 9076 9078 9079 9080 9081 9082 9083 

9105 9107 9108 9110 9112 9116 9121 9122 9123 9124 9148 9149 9152 

9154 9161 9162 9164 9171 9175 9175 9182 9184 9187 9209 9211 9218 

9219 9221 9228 9230 9232 9239 9241 9244 9277 9279 9286 9287 9289 

9296 9298 9300 9307 9309 9312 9340 9341 9344 9345 9347 9354 9356 

9357 9364 9365 9367 9391 9392 9396 9398 9405 9406 9408 9415 9417 

9419 9426 9428 9431 9453 9455 9462 9463 9465 9472 9474 9476 9482 

9485 9488 9510 9512 9519 9520 9522 9529 9531 9533 9540 9542 9545 

9567 9569 9576 9577 9579 9586 9588 9590 9597 959 9602 96 9636 

9666 9668 9698 9699 9729 9731 9736 9738 9779 9783 9792 9795 9797 

9806 9809 9811 9820 9823 982 9854 9856 9865 9868 9870 9879 9882 

9884 9893 9896 9898 9927 9930 9939 9942 9944 9953 9956 9958 9967 

9970 9972 10000 10002 10011 10014 10016 10025 10028 10030 10039 10042 10044 

10075. = 10078 §=10093 10095 10097 10099 10101 10109 10112 10113 10118 10125 10128 

10129 §=10155) Ss 10158 )§=10173 «10176 )3=—s «10178 »3=s 10180 )3—s «10182 «10189 »=s- 10193) 10195) 10196 )3=—s: 10203 

10206 10208 10209 10232 10234 ee 10252 §=10255 =10258 10260 10261 10268 10270 

10272 = 10275. Ss 10300) )3=—s 10301 )3s 10303) 10310 )»=s- 110314 Ss 10317: 10323) 10329) «10333 = 10341 = 10342 

10366 §=10368 10371 10376 10379 10386 10591 10411 10412 10417 10421 10423 10433 

10435 10458 10459 10461 10462 10463 10468 10470 10471 10472 10473 10475 10476 

| 10480 10481 10489 10491 HF 10497 §=10500 10503 10513 10515 10539 10545 10547 

| 10550 10552 10555 10558 1056 10568 10569 10576 10580 10583 10592 10596 10598 

| 10600 10606 10609 10637 10638 10641 1064 10645 10646 10647 10649 10650 10652 

10654 10656 10658 10659 10660 10661 1066 1968 10666 10667 10670 10672 10674 

| 10676 10678 10687 10688 10690 10691 10692 10750 10753 10755 10757 10758 10760 
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KNEKMK—ONONSMS NUR DMNMNONMR ODOOCOCOT KOM KTM OOOr0-O0 —oo 
EELSSISNMRTR CRATER OM ReTeeEESNRS Loser ta secre oe 
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CNDVAA.P11 16=DEC-82 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0138 
SMAMS2 001230 90494 
SMAMSS 001234 0494 
SMAMS4 001240 90494 
SMBADR 001002 
SMCALL= 000000 57178 
SMFLG 014164 116204* 
Ew 013711 116174 
SMSGAD 001210 90494 11620* 
SMSGLG 001212 90494 11620* 
SMSGTY 001174 90494 11620* 
SMSWR 013700 116174 
SMTYP1 001225 0494 
SMTYP2 001231 90494 
SMTYPS 001235 90494 
SMTYP4 001241 0494 
SMXCNT 014646 116264 
SNESTL= 177777 79624 9109 91164 91194 91234 484 91504 1544 91574 91644 91674 91754 91784 
| 91874 9190 92114 92144 92214 9224 92324 92354 2444 92474 92798 oe 92894 
92924 9300 93034 93124 9315# 93408 93424 9347 93504 93574 9360 93674 937 
93914 93934 93984 94014 9408 94114 9419% 9422 94314 94344 94554 94584 94654 
94684 94794 94918 9512# 95154 95224 95254 95334 95364 95454 954 
95694 9572 9579 95824 959 95934 96024 96054 96364 96684 96754 96 
97294 97324 97384 97498 97798 97844 97978 98024 98114 16#@ 98254 98304 
98544 98574 98704 98754 9884# 9889# 98984 99034 992 99314 99448 9949 995 
99724 99774 100004 100034 100164 100214 100304 100354 100444 100494 10075# 100794 
101014 101044 101134 101164 101184 101214 101294 101324 101554 10159# 101824 101854 101 
10199# 10209# 102124 102324 102354 102614 102644 10273# 102764 103004 10302# 103174 103204 
103334 103364 103424 103454 103794 103824 103914 103944 10423# 104264 104354 104384 1045 
104604 104694 104704 10472 10474# 10475# 104764 104824 104894 104914 104924 104984 104994 
105004 105034 105074 105154 10518# 105584 105644 105694 10577# 105834 105894 106004 106074 
106094 10613 10637# 106394 106414 10643# 106494 10660 106614 10664 106684 106704 106724 
10674 106764 10678 106844 106854 106904 107804 107824 10785 10789# 107904 10810# 1081 
108784 108804 10884 10887# 108884 109034 109064 109304 109324 10936 109394 109404 109834 
110064 110104 110114 110314 110344 110524 110714 110754 110774 111044 111064 111644 11165# 
| 111684 111718 111984 112014 11224 112264 112304 112334 112364 112404 112694 112714 112844 
112874 112894 112924 71331# 11370 1135724 11374 11376 1135794 113824 11384 11390# 113964 
113984 11406 11419H 114444 11447 11451# 114644 11482 114834 114844 114854 11495# 115284 
11549# 115524 115694 11570# 115714 11573 115784 11583 115884 115894 11599" 
| $NSKO = 000300 9109# 9123 91484 9150 91544 9157 91644 9167 91754 9178 91874 9190 92114 
9214 92214 9224 92324 9235 9244# 9247 9279# 928 92894 9292 9300# 930 
93124 9315 93404 9342 9347# 9350 93574 9360 93674 9370 93914 9393 93984 
9401 94084 9411 9419# 9422 94314 9434 94554 9458 94654 46 94764 
94884 9491 95124 951 95224 9525 95334 9536 95454 954 9569# 7 95798 
9582 95904 93 96024 9605 96364 9643 96684 9675 96994 70 972948 9732 
97384 9749 97794 9784 97974 9802 98114 9816 98254 9830 98544 9857 98704 
9875 98844 9889 98984 9903 9927# 9931 9944" 9949 99584 9963 99728 9977 
10000# 10003 1001 10021 10030 10035 100444 10049 10075# 10079 10101# 10104 101134 
10116 =10118# 10121 10129# 10132 101554 10159 106182# 10185 101964 10199 10209# 10212 
102324 10235 102614 10264 10273# 10276 10300 10302 10317# 10320 10333# 10336 103424 
10345 10579 10382 103914 10394 10423# 10426 104354 10438 10458 10460 10469# 10475 
10476 10482 104894 10500 10503# 10507 105154 10518 10558# 10564 10569# 10577 105834 
10589 10600# 10607 106094 10613 10637# 10639 106414 10643 106494 10690 10780 10790 
108104 10815 108784 10888 10903 10906 10930 10940 10983# 11011 11031# 11034 11052# 
11077, 111044 #11106 111644 11165 111684 11177 111984 11201 11224# 11233 11236# 11240 
oT eg Ht 14 HT oa 11287 = 11289 =©11292 «6113314 11406 114194 11451 11464 11495 11528# 
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MAINDEC“ZZ7-CNDVA=A MACY 
CNDVAA.F11 16-DEC-82 15:12 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0139 
$NSK1 = 000130 9116# 9119 104708 10472 10474 10491# 10499 10660 10670 106724 10674 10685 107824 
10785 10789 108804 10884 10887 10932# 10936 10939 11006# 11010 110714 11075 112264 
11230 113704 11384 1139 113964 11398 114444 11447 114824 11485 115694 11589 
SNSK2 = 000110 10492# 10498 106614 10664 10668 10676# 10678 10684 113724 11374 11376 113794 11382 
114834 11484 115704 11583 11588 
SNSK3 = 000110 115714 11573 11578 
SNULL 001154 90494 11614 
SNWTST= 000001 9100 91424 9202# 92604 93354 93864 94474 95044 95618 96254 96574 96894 97224 
97734 984684 9921 99944 10069# 101494 10226# 102934 103594 104044 104514 105334 106324 
107444 108384 10958 110264 110964 112644 1135054 
SOCNT 015316 116324 
SOMODE 015320 116324* 
VER 014632 116264 - 
SPASS 001202 90494  9062* 11608* 11626 
SPASTM 001006 90484 
SPOWER 012654 116114 
SPWRAD 012642 116114 
SPWRON (€12502 9062 116114 
PWRMG 012636 116114 
/SPWRUP 012554 116114 
| SQUES 1170 90494 11614 11617 11623 
SRDCHR 013430 116174 11635 
|$RDDEC= teeeee 11635 
|$RDLIN 013550 1160174 11635 
DOCT= teeeee 11635 
$RDSZ = 000010 116174 
SRTNAD 012460 116084 
2A = eeeeee 11635 
'$SAVLE= 177777 79624 105004 106494 106704 109834 11052# 11390 114444 114824 114834 
| SSAVRE= seeeee U 11635 
| SSAVR6 012652 116114* 
'$SCOPE 014370 9062 116264 
| $SETUP= 000137 90614 9062 9063 11608 11617 11623 11626 
$SSKO = 000236 10500 106494 106704 109834 11052# 113908 114444 114824 114834 
$STUP = 177777 90614 
SSVLAD 014576 116264 
SVPC = 000204 
1$SwR = 167400 7967# 8924 8925 9049 9062 9100 9142 9202 9260 9386 447 
| 625 9689 9773 9994 10069 10149 0226 10293 
10359 10404 10451 10533 10632 10744 10838 10958 11026 11096 11264 113C> 11608 
11611 11623 11626 
'SSWREG 001216 90494 062 
| $SWRMK= 000000 8925 11626 
STAGLE= 177777 79624 9109 9116 9119 9123# 9148% 9150 91544 9157# 91644 9167# 91754 91788 
91874 91904 92114 92144 92218 9224# 92324 92354 92444 92474 9279 9282# 92898 
| 92924 93004 93034 93124 9315# 93424 93474 93504 93574 3604 93674 93708 
93914 94014 94084 94114 19% 9422 94318 94348 94554 945 654 
94764 94794 94884 94918 9512 95154 $5224 95254 953534 95364 95454 95484 
95694 95724 95794 95824 9590 95934 96024 96054 96364 96 966 96754 
7 97294 97324 97384 97498 97798 97844 97974 98024 98114 98164 98254 98304 
98544 98574 98704 98754 98844 9889 98984 99034 99274 99314 9944 99494 584 
996 99724 99774 100004 10003# 10016 100214 100304 10035# 100444 100494 100754 100794 
101014 101044 101134 10116 101184 101214 101294 101324 101554 10159# 101824 10185# 101964 
10199# 102094 102124 10232# 102354 10261 102644 10273# 102764 103004 103024 103174 103204 
10333# 103364 103424 103454 103798 103824 103914 103944 104234 10426# 104354 104384 10458¢ 
104604 104694 104704 10472 10474# 10475# 104764 104824 10489# 104914 104924 10498# 104998 
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MAINDEC=ZZ7=CNDVA=A MACY! 1 
CNDVAA.F11 16=DEC=82 15:12 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0140 
105004 1050:4 105074 105154 105184 10558 105644 105694 105774 105834 105894 10600# 106074 
106094 106124 106374 106394 106414 106434 106494 106604 106614 106644 106684 10670# 106724 
106744 10676% 106784 106844 106854 106904 107804 107824 107854 107894 10790# 10810# 108134 
108784 108804 108844 108874 108884 109034 109064 109304 10932# 109364 109394 10940# 109834 
110064 110°y# 110114 11031% 11034 110524 110714 110754 110774 111044 111064 111644 111654 
111684 711714 111984 112014 112244 112264 112304 112334 112364 112404 112694 112714 112844 
112874 112894 11292# 113704 113572 11374# 113764 11379# 113824 11384 113904 113964 113984 
Vi eece 114474 114824 114834 11484 114854 115694 115704 115714 115734 115784 115834 115884 
STAGNU= 000251 79624 91094 91168 91484 91544 91648 91754 91874 92114 9221# 92324 92444 92798 
92894 93008 93124 93404 9347# 9357# 93674 93914 93984 9408 94198 94318 94554 
94654 94764 94884 9512% 9522% 95334 9545# 95694 95794 9590 9602 96364 6684 
96994 97298 97384 9779% 9797% 98118 98254 98544 9870# 98844 98984 992784 99444 
99584 99724 100004 100164 100304 100444 100754 101014 1011354 101184 101294 101554 101824 
101964 102094 102324 102614 10273# 10300# 103174 103334 103424 103794 103914 104234 104354 
104584 104694 10470# 104724 10475# 104764 104894 104914 104924 105034 105154 10558# 105694 
105834 106004 106094 106374 106414 106494 106604 106614 106644 106724 106744 10676# 1067 
107804 107824 107854 108104 108784 108804 108844 109034 1093504 109324 109364 109834 
110314 110524 110714 111044 11164 111654 111684 111984 11224# 112264 1123 112694 112844 
112894 113314 113704 113724 113748 113794 113964 114198 114444 114644 114824 114834 
115524 115694 115704 115714 11573# 115834 
STEMP = 000300 90684 90734 90754 90764 9078 90798 90804 90814 90824 90834 91054 91074 
91104 9112 91198 91214 9122 9123 91244 91498 91504 91524 91574 91614 91624 
91674 91714 91734 91784 91824 91848 91904 9209% 9214 92184 9219% 92248 92284 
3 92354 92394 92414 9247 9277# 92824 92864 92874 92924 9296 9298% 93034 
93074 9309 93154 93414 9342# 9344# 93454 93504 93544 93564 93604 93644 935654 
93704 93924 93934 93964 94018 94054 9406 94114 94154 94174 2a 2 
94348 94534 94584 9e8ee § 94684 94724 94744 94798 94824 °9485# 94914 95104 
95154 9519% 9520 95254 9529% 9531# 95364 95404 95424 954 95674 9572 95768 
95774 95824 95864 95884 95934 9597 95994 96054 96354 96434 66 967 9 
97084 97314 9732 97364 9749% 9783 97844 97924 97954 9802 98064 9809 98164 
98204 98234 98304 98564 98574 98654 98684 98754 98794 98824 98894 98934 964 
99034 99304 99314 9939% 99424 9949% 99534 9956# 99634 9967 99708 9977# 100024 
100034 100114 100144 100214 100254 10028 100354 100394 100424 100494 100784 100794 10093# 
100954 100994 101044 101094 10112# 101164 101214 101254 101284 10132 101584 10159# 10173# 
101764 101804 101854 101894 10193# 101994 102034 102064 102124 10234# 102354 10251# 102524 
102554 102584 102644 102684 10270# 10276# 103014 103024 103034 103104 103204 10323# 103294 
103364 103454 103664 105684 105714 103824 103864 103944 104114 10412# 10417# 10426 10433# 
104384 10459# 104604 104614 10462# 10463# 104684 104714 10472# 10473# 10474# 104754 10480# 
104814 104824 104974 104984 10499# 10500# 105074 105134 10518# 105394 105454 10550# 10555# 
105634 105644 105684 105764 10577# 10580# 105894 105924 10596 10606# 106074 106134 106384 
106394 106424 10643% 106454 10646# 10647# 10649# 106504 10652 106544 106564 106584 106594 
106634 106644 106664 106674 106684 10670# 106744 106784 106844 106854 10687# 10688# 106904 
106914 10692 107504 107534 10755# 107574 107584 107604 107744 107854 107894 107908 107934 
10795# 107974 108134 108174 10845# 10847# 108484 108504 108524 108664 108724 108754 10884# 
108874 108884 108904 108924 ree 10905# 109064 10908 109104 109224 109244 109254 10936# 
109394 10940# 109414 10942# 109454 10946# 109644 109804 1098354 10991# 10995# 110024 110034 
110094 11010 110114 110144 1103354 110344 11056 110504 110524 110604 110644 11067# 110684 
110744 110754 110774 11105 11106# 11134# 111364 111374 #111404 111414 111444 111464 111484 
11151# 11155 111584 11160# 11165# 111718 #111734 #111744 #111924 111944 111964 112004 112014 
112174 11219# 112214 112284 11229# 11230# 11232# 112334 11238 11240# 11270# 112714 112734 
11276 11280 112824 112874 \igage 113634 113644 113654 115734 115744 11375@ 115768 113814 
113824 113844 11389# 11390# 11598# 11406# 114414 114424 114444 114458 114464 114474 114488 
114514 114814 114824 114834 114844 114854 114954 11522# 115494 115724 115734 11577# 11578# 
HF La 115804 115814 11582 11583# 115844 115854 115864 11587# 115884 11589% 115914 115928 
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STESTN 001200 9049# 9100* 9142* 9202" 9260* 9335* 9386" 9447* 9504* 9561" 9625" 9657* 9689« 
9722" 9773" 9848 9921" 9994* 10069* 10149* 10226" 10293* 10359* 10404* 10451* 10533 
10639* 10744* 10838" 10958* 11026* 11096* 11264* 11535 11626 

STIMES 001160 9049# 9062" 9100* 9142 9149" 9202* 9960 9335« 9341" 9386* 9392" 9447 9504 
9561" 9635* 96578 9680» 97228 97318 97738 9783« 9848* 9856+ 9921" 9930*  9994e 

: 10002* 10069* 10078" 10149* 10158* 10226" 10234* 10293* 10301* 10359* 10404* 10451* 10459 

| 10481* 10497* 10533" 10563" 10576* 10606" 10632" 10638* 10642* 10744" 10838* 10905* 10958 

| 11009* 11026 11033* 11074* 11096* 11105" 11264* 112708 11305* 11608* 11626* 

‘$TKB (001146 9049" 11617 

‘$TkS 001144 9049" 11617* 

STN. = 000042 8# 8924 91008 9142" 91 9202" 9260 93354 9341 9386" 9392 9447" 9504s 
9561% 9625 96574 9689# 97228 9731 97734 9783 9848" 9856 99218 9 99948 
10002, 10069" 10078 10149 10158 10214 10226" 10 102934 10301 10359# 10404# 104514 
10459 10481 10497 10520 10533# 10563 10576 10588 10606 10615  10632# 10638 10642 
10694  10744# 108384 10905 10958 11009 11026" 11033 11074 11096# 11105 11176 11264# 

| 11270 11294 11305# 

'stPB 001152 9049" 11614* 

'STPFLG 001157 9049% 11614 

'$TPS. 001150 9049" 11614 

‘STRAP 015322 062 116354 

I$TRAP2 015346 116358 

|$TRP_ = 000012 116358 

|STRPAD 015356 116354 

$TSKO = 000244 9109# 9123 91484 9150 91548 91644 9167 91758 9178 9187" 9 921148 

214 92218 9224 92328 9235 92448 9247 92798 9282 9289" 9292 9300" 930 
93124 93404 9342 9347" 9350 9357 9360 93678 9370 93918 9293 93988 
94084 9411. 9419% 9422 94318 9434 9455# 9458 9465 9468 9476e 9 

Q48B# 9491 9512" 9515 95228 9525 55H 9536 9SubH 9548 950M 95 9579" 
9582 9590" 9593 9602" 9605 96368 9643 96684 9675 9699" 9708 9729" 9732 
97384 9749 9779" 9786 9797" 9802 98114 9816 9825" 9830 9854" 98 98708 
9875. 98844 9889 9898" 9903 99278 9931 99448 9949 9958" 9963 99728 9977 
10000# 10003  10016# 10021 10030" 10035 10044 10049  10075# 10079 10101# 10104 10113e 
10116 10118 10121 10199 10132  10155# 10159 10182" 10185  10196# 10199 10209" 10212 
10232" 10235 102614 10264 10273# 10276 10300# 10302 103174 10320  10333# 10336  1034# 
10345 103794 10382 10391# 10394 104234 10426 10435# 10438 10458# 10460 10469 10475 
10476# 10482 10489" 10500  10503# 10507 10515# 10518 10858" 10564 10569" 10877, 10S83# 
10589  10600# 10607 10609 10613 10637# 10639  10641# 10643  10649# 10690 10780" 10790 
10810" 10813  10878# 10888 10903# 10906  10930# 10940 10983# 11011 11031# 11034 11052« 
11077, 11104# 11106 111644 11165. 111684 11171. 11198# 11201 11224 11233 11236 11240 
11269 11271 112BGH 11267 11289" 11292 11370" 11390 11596" 11598 T1aKGe 11447 114828 

$TSK1 = 000250 9116" 9119 10470# 104724 10474 10489% 10500 10649# 10690 10782" 10785# 10789  10880# 
108848 10887 109324 10936# 10939 10983# 11011 11052# 11077 11226# 11230 11370" 11384 
11390 114444 11447 11482# 11485 11570# 115834 11588 

$TSK2 = 000247 104914 10499 10660# 10670 10672# 10674# 10685 11006# 11010 11071# 11075 11372# 113744 
11376 113798 11382 114838 11484 115714 115734 11578 

$TSK3 = 000236 104924 10498 10660# 10670 106768 10678# 10684 114838 11484 

$TSk4 = 000147 106614 106644 10668 

$TSTM 001004 9048# 

$TSTNM 001102 9049# 11608* 11623 11626 

S$TTYIN 013656 116178 

STYPBN= **eeee 11635 

S$TYPDS 014650 116294 11635 

$TYPE 012666 11614#@ 11620 11635 

$TYPEC 013076 116144 11617 

$TYPEX 013144 116148 


poor 
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CNDVAA.P11 16=DEC=82 15:12 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0142 

STYPOC 015120 116324 11635 

STYPON 015154 116324 11635 

STYPOS 015074 116324 11635 

i es Be 

| SUSWR 001220 90494 9148 9340 9391 9729 9779 9854 9927 10000 10075 10155 10232 10637 

10691. 10903 11031 11269 11442 

iSVECT1 001244 90494 11582 

SVECT2 1246 90494 

SXTSTR 014402 116264 

'SYESNO= 000001 90794 9080 90814 90824 9121% 91228 91244 91624 91734 91844 92194 92414 

92874 92984 9309% 93454 93564 93654 94064 9417 9428 94634 94748 94854 95204 

| 95314 9542# 95774 95884 9599% 9795% 9809H 98234 98684 98824 98964 99424 5 

99704 100144 100284 100424 10095# 101124 101284 101764 101934 10206# 102514 102704 

103664 104114 104614 104734 106474 106494 106664 106674 106914 107554 107604 107744 10797% 
108174 108504 108524 108724 108904 108924 109104 109224 109244 109254 109414 10942# 10946# 

| 109644 109834 110024 110034 11014 11036# 110524 110674 110684 111554 111584 111734 
111748 #11192 111944 11200# 112174 11219# 112214 112324 1123584 112734 112804 11389# 114424 
114448 114454 114464 114484 114824 114834 115224 115854 115864 115874 115924 

SSARGC= 000000 113314 114194 114644 115284 115524 

S$BYTE= 000403 91164 91484 91544 91644 91754 9187 92114 92214 92324 92444 9279% 9289% 9 
93124 9340# 93474 93574 93674 93918 93984 94084 9419% 94314 94554 94654 94764 
94884 9512% 95224 95334 9545# 95698 9579% 95904 9602 96364 96684 96994 97294 
97384 97798 97974 98114 9825% 98544 9870# 98844 9898 99274 99444 99584 4s 
100004 100164 100304 100444 10075# 101014 101134 101184 101294 101554 10182# 101 102094 
102324 102614 102734 10300# 103334 103914 104354 1045 104704 104764 104894 104914 104924 
105034 105154 105584 105694 105834 10600# 106094 106374 106414 106604 106614 106724 1 
107804 107824 108104 10878# 10880# 109034 109504 109324 110064 110314 110 111 111684 
11198# 11224 11226 11236 112694 112894 1135724 11379 11396 115704 115714 

$$DST = 000067 106914 114424 

$$FLAG= 000001 91164 91198 91484 91504 9154 9157# 91644 91674 91754 91784 9187# 919 92114 


98754 98844 9889% 98984 99034 9927# 99314 99444 99494 99584 99634 9972# 997748 
100004 10003 100164 100214 10030# 100554 100444 100494 100754 100794 101014 101044 101134 
101164 101184 101214 10129 101324 101554 101594 101824 101854 101964 101994 10209# 102124 
102324 102354 102614 102644 10273# 102764 10300# 103024 103174 10320# 103334 103364 103424 
103454 10379# 103824 105914 103944 104234 10426# 104354 104384 104584 104604 10470# 10474# 
104764 104824 104894 104914 10492# 104984 104994 105034 105074 105154 10518# 105584 105644 
105694 105774 105834 10589# 10600# 10607# 106094 106135# 106357# 10639# 10641# 106434 10660# 
106614 106684 106724 106764 10684# 106854 107804 107824 107894 107904 108104 1081354 108784 
108804 108874 108884 109034 10906# 10950 109524 109394 10940# 11000# 110104 110314 110344 
110714 11075# 111044 111064 11168% 111714 111984 112014 112244 11226 112304 112334 112368 
112404 112694 112714 112844 11287# 11289% 11292# 1135724 113764 11579# 11382# 11596# 115988 
11570# 115714 115784 115884 

$$FROM= 000000 90704 100974 10178 101954 102084 102604 102724 103144 103414 103764 104214 10547# 10552# 
105984 107774 108094 108704 10874# 10927# 109784 109884 10993# 110494 11057# 11061# 11108¢ 
112834 113884 115744 

$$GET4= 000000 116084 

$$L0C = 012332 91164 91234 91484 91544 9164# 91754 91874 oe118 92214 92324 92448 92798 92898 
9300 93124 93404 93474 93574 9367# 93914 93984 94084 94198 94318 9455# 94654 
94764 94884 95124 9522 9533# 9545 95694 9579 9590# 96024 96564 96684 96998 


MAINDEC=Z7=CNDVA=A MACY] 6 

CNDVAA.P11 16=DEC=82 15:12 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0143 
97294 97384 97798 9797% 9811% 9825# 98544 9870H 98844 98984 99274 99444 99584 
99724 100004 100164 100304 10044# 10075# 101014 10115# 101184 101294 101554 101824 10196# 
102094 102324 102614 102734 103004 103174 103334 103424 103794 103914 104234 10435# 1045 

104704 104754 10476# 104894 104914 104924 105034 105154 105584 105694 105834 106 106 

106374 106414 106604 106614 106724 106764 107804 107824 108104 108784 108804 109034 10930# 

109324 11006 110314 110714 11104# 111654 111684 111984 112244 112264 112364 11269# 112844 
112894 1135724 113794 11396# 11570 115714 115894 

| SSLOCN= 000000 113314 11406 11419% 11451 114644 11495 115284 11549 115524 11599 

| S$RETU= 000000 113314 113974 11399% 11406 114194 11451 114644 11495 115284 11549 11552 11599 

SRTNI= 000242 113314 11397 11406 11419 11449 11451 11464# 11495 115284 11549 115524 11593 11599 

S$RIN2= 000245 113314 11399 11406 114194 11451 114644 11495 115284 11549 11552# 1159 

| $$SRC = 000027 106914 114424 

$$TO = 900000 90704 100974 101784 101954 102084 102604 102724 103144 103414 103764 104214 10547# 105524 
105984 107774 108094 10870# 10874# 10927# 109784 109884 109934 11049# 110574 110614 111084 
112834 113884 115744 

SOFILL 015317 116324 

$1 002126 91094 9123 

$10 002446 9211 92144 

$100 005260 10182 101854 

$101 005322 10196 101994 

$102 0053 10209 102124 

$103 005424 10232 102354 

104 005512 10261 102644 

$105 005554 10273 102764 

106 005612 10300 103024 

$107 005660 10317 103204 

$11 002474 9221 92244 

$110 003708 10333 103364 

$111 00574 10342 103454 

$i12 06034 10379 103824 

$113 006056 10391 103944 

$114 006150 10423 104264 

$115 006166 10435 104384 

$116 006224 10458 104604 

$117 006244 104694 10475 

$12 002522 9232 92354 

$120 0626 10470 104724 

$121 006264 10472 104744 

$122 006300 104754 

$125 006324 10476 104824 

$124 006324 104894 10500 

$125 006370 10489 105004 

$126 006366 10491 104994 

$127 006366 10492 104984 

$13 002552 9244 92474 

$130 006402 10503 105074 

$131 006420 10515 105184 

$132 006534 10558 105644 

$133 006562 10569 105774 

$134 006604 10583 105894 

$135 00665 10600 106074 

$136 006666 10609 106134 

$137 006726 10637 106394 

$14 002622 9279 92824 

$140 006746 10641 106454 

B 006776 106494 


A eee 6 Se ee 


MAINDEC=22-CNDVA-A 


CNDVAA.P11 16=DEC-82 
$142 006 
$143 007144 
$144 007034 
$145 007070 
$146 007056 
$147 00706 
$15 002650 
$150 007102 
$151 007126 
$152 007124 
$153 007126 
$154 00741 
$155 007414 
$156 0074 
$157 007474 
$16 002676 
$160 007730 
$161 007726 
$162 007730 
$163 007772 
$ 010100 
$165 010076 
$166 010100 
$167 = 010230 
$17 002726 
$170 010226 
/$171 010354 
$172 010352 
$173 010420 
$174 010464 
$175 010462 
$176 010610 
$177 010606 
$2 002152 
$20 002764 
$200 010646 
$201 010760 
$202 010774 
$203 011004 
$204 011064 
$205 011144 
$2 011140 
$207 011160 
$21 003012 
$210 011224 
$211 011306 
| $212 011316 
| $213 011642 
$214 011644 
$215 011512 
$216 011616 
$217 011532 
$22 003040 
$220 011540 
$221 011556 
$222 011630 
| 
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15:12 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0144 
106494 10690 

10649 106904 

Ineene 0670 


109834 
9312 93154 
109834 11011 
10983 110114 
11006 110104 
11031 + =110344 
119524 
110524 11077 
11052. 110774 
11071 =110754 
9116 91194 
9340 93424 
1104 11106# 
11644 11165 
11654 
1168 111714 
1198 112014 
1224 112334 
1226 §=6112308 
1236 86112404 
9347 93504 
1269 112714 
1284 112874 
1289 §=112924 
1397 114064 
1399 §=11406# 
13704 11390 
1384 113904 
1372 =: 113744 
9357 93604 
1374 9113764 
1379 §=—- 113824 
1396 §=6. 11398 # 


oz 


MAINDEC=ZZ7=CNDVA=A 
16=DEC-82 


CNDVAA.F11 
$223 011744 
$224 011744 
$225 011710 
($226 011704 
$227 011734 
$23 003066 
$230 012024 
$231 012024 
$232 011772 
1$233 011766 
'$234 012016 
$235 012004 
($236 012002 
| $237 012014 
| $24 003124 
$240 012216 
'$241 012216 
$242 012356 
$243 012356 
($244 012220 
1$245 012304 
$246 012244 
$247 012252 
$25 003144 
$250 012324 
$26 003172 
$27 003220 
$3 002264 
$30 003250 
$31 0033 
$32 003334 
$33 003362 
$34 003412 
$35 00345 
$36 003476 
$37 003524 
$4 002304 
$40 003554 
S$4OCAT= seeee8 
$41 003612 
$42 003640 
$43 003666 
$44 003716 
$45 003756 
$46 004016 
$47 004056 
5 002332 
$50 004114 
$51 004136 
$52 004174 
$53 004222 
$54 0042 
$55 004276 
$56 004334 
$57 04362 


0 
$6 002360 


Ul 


MACY11 30(1046) 
15:12 

11449 114514 
114514 

114444 

11444@ 11447 
11444 114474 
9367 93704 
114954 

114954 

114824 

114824 11485 
11482 114854 
114834 

114834 11484 
11483 114844 
9391 93934 
115494 

115494 

11593 115994 
115994 

115694 11589 
11570 115834 
11571 115734 
11573 115784 
9398 94014 
11583 115884 
9408 94114 
9419 94224 
9148 91504 
9431 94344 
9455 94584 
9465 94684 
9476 94794 
9488 94914 
9512 95154 
9522 95254 
9533 95364 
9154 91574 
9545 95484 
11623 1626 
9569 95724 
9579 95824 
9590 95934 
9602 96054 
9636 96434 
9668 96754 
9699 97084 
9164 1674 
9729 97324 
9738 97494 
9779 97844 
9797 98024 
9811 8164 
9825 98304 
9854 98574 
9870 98754 
9175 91784 
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SEQ 0145 


: | 12 
MAINDEC=Z2=CNDVA=A MACY11 30(1066) 16=DEC-82 15:13 PAGE 206-20 


‘CNDVAA.P11  16-DEC=82 15:12 CROSS REFERENCE TABLE = USER SYMBOLS SEO 0146 

$60 004410 9884 9889# 

$61 004436 9898 99038 

$62 004474 9927 99318 

$63 --004822 9944 99498 

$64 004550 9958 99638 

$65 004576 997 99774 

$66 (004634 10000 100034 

$67 004662 10016 100214 

$7 002410 9187 Soe 

$70 004710 10030 100354 

$71 0047 10044  10049# 

2 04774 10078 100794 

$78 005054 10101 101044 

$74 008102 10113101164 

$78 «005114 10118 101218 

$76 005142 10129 101324 

$77 005200 10155 101594 

ss 015456 90454 90464 99474 90484 9049% 9059% 9062 90634 9116 9123 9148 9154 9164 
9175 9187 9211 9221. 9232 9246 9279 9289 9300 9312 9340 9347 9357 
9367 9501 «9398 «=«9408.~=—«9419Ss«i931=—«s«9K55— «96S = «9476SiC«CKBBSO9S12.—«—«S22—S«5 33 
9545 9569 9579 9590 9602 9636 68 ©«-9699-««s«9729~=Sté«éS738 79 «49797~=S «9817 
9825 9854 9870 9884 9898 9927 994 9972 10000 10016 10030 4 
10075 10101 10113. 10118 + 10129 «-10155.-«10182.-«410196.-+=«410209'-~=«*10232+=«10261~=«10273+~=«10300 
10317 10333. -«10342,-«10379-«10391/=«10423=«10435 «410458 +«'10470«'10475 «10476 +«*10489-~=«*10491 
10492 10503 10515 10558 10569 10583 10600 10609 10637 10641 10660 10661 
10676 107234 10780 10782 10810 10878 10880 10903 10930 10932 06 11031 11071 
11104 11165. 11168 11198 11224 11226 11236 11269 11284 11289 11306" 11372 © 11379 
11396 115344 11539# 115414 11570 11571 11589 11608 11611 11614 11617# 11620" 11623 
11626 116294 116384 

LSASTAS teeeee Y 11620 

"$x = 001009 90484 


MAINDEC=22=CNDVA=A 


‘CNDVAA.P11 
‘BEGIN 7390 
BGNHRD 79734 
'BGNHW 7976 
'BGNINI 79798 
'BGNMOD  7982# 
'BGNMSG 79854 
BGNSFT 79894 
BGNSRV 79924 
‘BGNSUB 79978 
| 9354 
9576 
| 9967 
10386 
'BGNSW  8006# 
'BRESET 80094 
11153 
CALL 70634 
10777 
CASE 73294 
CKLOOP 80214 
CLRVEC 8024# 
COMMEN  1566# 
DECR 9964 
DECRU 70024 
DEFAUL 73724 
DEVREG 80494 
DEVTYP 80524 
DISPAT 8055# 
ELSE 64278 
END 74074 
ENDCLN 80584 
ENDCOM 15784 
ENDDEC 70074 
ENDBO 64984 
ENDHRD 80614 
ENDHW 8064# 
ENDIF 64454 
9342 
9536 
9857 
10121 
10426 
0643 
11106 
ENDINC 69834 
ENDINI  8067# 
ENDLOO 68714 
ENDMOD  8070# 
ENDMSG 80734 
ENDRIN 72254 
ENDSEL 7316# 
ENDSFT 80774 
ENDSRV 80804 
ENDSUB 80914 
9361 
9583 
| 


16-DEC=82 1 


0 
9371 
9594 


cyi1 
12 


10664 
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10678 


10785 


10884 


10936 


11374 


11573 


11583 


SEQ 0147 
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MAINDEC=Z7=CNDVA=A MACY 
CNDVAA.P11 16=DEC=82 15:12 CROSS REFERENCE TABLE == MACRO NAMES : SEQ 0148 
9978 10022 10036 10050 10106 10122 10133 10186 10200 10213 10265 10277 10321 10346 10384 
nee le 10427 10565 10578 10590 10614 10791 10815 10893 10943 
T 80974 9126 9152 9249 9317 9372 9436 9493 9550 9608 7 9679 9711 9753 9832 
m fe't 13309 oar 10134 §=10215 10278 10347 10396 10439 10525 10617 10726 10819 10947 11015 


EQUALS 81008 
ERRDF 81044 9118 


‘ERRHRD 8116 9156 9166 9177 9189 9213 9223 9234 9246 9281 9291 9302 9314 9349 9359 

9369 9400 9410 9421 9433 9457 9467 9478 9490 9514 9524 9535 9547 9571 9581 
9592 04 9640 9701 9741 97 9813 9872 9886 9900 9946 9960 9974 
10018 10032 10046 10103 10115 10120 10131 10184 10198 10211 10263 10275 10319 10335 10344 
10381 10393 10425 10437 10479 10495 10505 10517 10560 10572 10586 10602 10611 10683 10784 
10788 10812 10882 10886 10934 10938 11008 11073 11170 11286 11291 

ERROR 89274 9118 9156 9166 9177 9189 921 9223 923 9246 9281 9291 9302 9314 9349 

9359 9369 9400 9410 9421 9433 9457 9467 9478 9490 9514 9524 9535 9547 9571 
9581 9592 04 9640 9672 9701 9741 9799 9813 9827 9872 9886 9900 994 
9974 10018 10032 10046 10103 10115 10120 10131 10184 10198 10211 10263 10275 10319 10335 
10344 10381 10393 10425 10437 10479 10495 10505 10517 10560 10572 10586 10602 10611 10683 
10784 10788 10812 10882 10886 10934 10938 11008 11073 11170 11286 11291 

ESCAPE 1698#  8927# 

EXIF 68294 

EXIFB 68514 11384 

EXIT 81284 9149 93 9392 9731 9783 9856 9930 10002 10078 10158 10214 10234 10301 10459 
10481 10497 10520 10563 10576 10588 10606 10615 10638 10642 10694 10905 11009 11033 11074 
11105) 11176) = 11270: 11294 

GETPRI 13124 89274 

GETSWR 17714 89274 90634 

GPHARD 8152# 

GPRMA 81554 

GPRMD 81584 

GPRML 81614 

HEADER 81644 

F 63324 9116 9148 9154 9164 9175 9187 9211 9221 9232 9244 9279 9289 9300 9312 
9340 9347 9357 9367 9391 9398 9408 9419 9431 9455 9465 9476 9488 9512 9522 
9533 9545 9569 9579 9590 9602 9636 9668 9699 9729 9738 9779 9797 9811 982 
9854 9870 9884 9898 9927 9944 9958 997 10000 10016 10030 10044 10075 10101 10113 
10118 §=10129 10155 10182 10196 10209 10232 10261 10273 10300 10333 10391 10435 10458 10470 
10476 10491 10492 10503 10515 10558 10569 10583 10600 10609 10637 10641 10661 10672 10676 
10780 10782 10810 10878 10880 10903 10930 10932 11006 11051 11071 11104 11168 11198 11224 
11226) =. 11236 )S -11269) Ss -111372)=S 11570 =): 11571 
FB 63384 11289 11379 11396 
IFCOND 63584 
— orene 10317 = 10342) = 10379) Ss 10423: 11284 


L 9224 68 9073 9075 9076 9078 9079 9080 9081 9082 9083 9105 9107 9108 9110 
9121 9122 9124 9149 9152 9161 9162 9171 9173 9182 9184 9209 9218 9219 

9228 9230 9239 9241 9277 9286 9287 9296 9298 9307 9309 9541 9344 9345 9354 

9356 9364 9365 9392 9396 9405 9406 9415 9417 9426 9428 9453 9462 9463 9472 

9474 9482 9485 9510 9519 9520 9529 9531 9540 a3e8 9567 9576 9577 9586 9588 

9597 9599 9635 9666 9698 9731 9736 9783 9792 979 9806 9809 9820 9825 9856 


G_12 
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MAINDEC=27=CNDVA-A MACY1 - 
CNDVAA.P11  16=DEC=82 15:12 CROSS REFERENCE TABLE == MACRO NAMES SEQ 149 
9865 9868 9879 9882 98923 9896 9930 9939 9942 9953 9956 9967 9970 10002 10011 
10014 10025 10028 10059 10042 10078 10095 10095 10099 1010910112 10125 10128 10138 10173 
10176 10180 10189 10195 10203 10206 10¢54 10251 1023210255 10238 10268 10270 10501 10305 
10310 10323 10329 10366 10368 10371 10386 10411 10412 10417 10433 10459 10461 10462 10463 
10468 10471 10473 10480 10481 10497 10513 10539 10545 10550 10555 10563 10568 10576 10580 
10592 10596 10606 10638 10642 10645 10646 10647 10650 10652 10654 10656 10658 10659 10663 
10666 10667 10687 10688 10691 10692 10750 10753 10755 10757 10758 10760 10774 10793 10795 
10797 10817 10845 10847 10848 10850 10852 10866 10872 10875 10890 10892 10902 10905 10908 
10910 10922 10924 10925 10941 10942 10945 10946 10964 10980 10991 10995 11002 11003 11009 
11014 11033 11036 11050 11060 11064 11067 11068 11076 11105 11134 11136 «111737 «11140-11141 
11166 11146-17748 )=-17151, 11155) 11158) «1116011173, 11174) 11192-11194. 11196) 11200) 11217-11219 
11221 11228) «11229-11232, 11238.) 1127011273: 11276): 11280-Ss«- 11282-11363. 11364 «11365-11373 11375 
11381 1138911441 1144211445) 11446 011448) 1148111522, 11572-11577, 11579-11580) 111581 = 11582 
11584 11585 11586 11587 11591 11592 
‘LOCAL «=—71434 
P = 66914 =: 11370 
MSG 9093# 9100 9136# 9142 9326" 9335 93818 9386 97694 9773 98444 9848 9917" 9921 99918 
10063# 10069 10145# 10149 10289" 10293 10355# 10359 10447# 10451 10627# 10632 10737# 10744 
10833# 10838 10955# 10958 11093" 11096 11260# 11264 
‘MULT «4484 = 89278 
'NEWTST 1626 8927# 9100 9142 (9202 (9260 9335 9386 9447 9504 9561 9625 9657 9689 9722 
! 9773 9848 (9921 9994 10069 10149 10226 10293 10359 10404 10451 10533 10632 10744 10838 
10958 11026 11096 «11264 =: 11305 
'NOLOCA 71834 
‘POINTE 81718 
POP 2153# 8927" 9124 10817 10946 11490 11611 11620 11629 
/PRINTB 81748 
SH 2145# + 8927# 9124 10817 10946 11476 11611 11620 11629 
REPEAT 6516# 9109 10469 11164 11569 
[REPORT 5463 7960" 89278 
RETURN 7196# 11397 11399 11449 11593 
ROUTIN 7111 11331 11419 11464 11528 11552 
SAVR14 71384 
SCOPE  8927# 9100 9142 9 9260 9 9386 9504 9561 9625 9657 9689 97 9773 
848 9921 9 10069 10149 10226 10293 10359 10404 10451 10533 10632 10744 10838 10958 
sevect 12026, 11096 11264 «11505 11608 
SETPRI 12798 © 8927# 9266 10086 10166 10242 10767 10803 1085910917 10972 1104311128 
SETUP 13374 8927# 9062 
SETVEC 81778 9107 10757 10845 
SKIP 733 «©=8927# «9149 9341 —_ 9392 3 985 930 10002 10078 10158 10214 10234 10301 
10459 10481 10497 10520 10563 10576 10588 10606 10615 10638 10642 10694 10905 11009 11033 
11074 11105 11176 11270 11294 
SLASH 15174 8927# 
SPACE 8927 
STARS 14854 89274 8944 8946 8964 8966 8984 8986 9006 9008 9029 9044 9046 9048 9 
91 9131 9133 9142 9199 9202 9257 9260 9325 $335 9380 938 9444 9447 9501 
9506 9558 9561 9617 9620 9625 9657 9689 9719 9722 9761 9765 9773 9843 9848 
9916 9921 9990 9994 10062 10069 10144 10149 10225 10226 10288 10293 10 10359 10403 
10404 10446 10451 10532 10533 10626 10632 10736 10744 10832 10838 10954 10958 11025 11026 
11092 11096 11259 11264 11305-11326) 11354. 1141411435) 11459-11475 11504 11515-11533: 11557 
11564 11608 11611 11614 11617 11620 11623 11629 11632 11635 


8 

‘stRuUCT 57208 79618 7962 
SwRSU 14538 89278  9062# 
‘TRMTRP 11635# 


12 
MAINDEC=Z7-CNDVA=A MACY11 30(1046) 16=DEC-82 15:13 PAGE 207-3 
CNDVAA.P11 16=DEC=82 15:12 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0150 


11307 11309-11535) «11538 1154011542 11544 11617 
TYPTXT 18948 8927# 11306 11308 11310 11534 11536 «11539 «11541-11543 
UNTIL 66308 10475 11165 = «11589 
WAITMS 81884 10097 10178 10195 10208 10260 10272 10547 10552 10598 10777 10809 10874 10927 11388 
‘WHILE 6487 10489 10660 
WHILEB 64924 
SADDON 5805# 9109 9116 9148 9154 9164 9175 9187 9211 9221 9232 9244 9279 9289 9300 
| 9312 9340 9347 9357 9367 9391 9398 9408 9419 9431 9455 9465 9476 9488 9512 
9522 9533 9545 9569 9579 9590 9602 9636 9668 9699 9729 9779 9797 9811 
9825 9854 9870 9884 9898 9927 9944 9958 9972 10000 10016 10030 10044 10075 10101 
10113 10118 += 10129-10155. 10182-10196» 10209-10232» 10261 «10273 «= 10300:« 10317 = 10333.««10342-=S «10379 
| 10391 10423 10435 10458 10469 10470 10472 10475 10476 10489 10491 10492 10500 10503 10515 
| 10558 10569 10583 10600 10609 10637 10641 10649 10660 10661 10664 10670 10672 10674 10676 
10678 10780 10782 10785 10810 10878 10880 10884 10903 10930 10932 10936 10983 11006 11031 
11052 11071 «11104-11164 = 11165| 11168) 11198) 11224) 11226-11236) 11269) 11284-11289 11331-11370 
| 11372 11374 11379 11390 11396 1141911444 1146411482 11483-11528 11552-11569 1157011571 
AND 60924 = 10676 
|SBRANC 5931# 9116 9123-9148 «9154 «9164 = «9175S «9187 = «9211S «9221 «S232 «9244S «9279'-s«9289 9 
9312 9340 9347 9357 9367 9391 9398 9408 9419 9431 9455 9465 9476 9488 9512 
9522 9533 99545 «9569S «9579'S «9590-9602 «9636 = 9668 «= 9699S 9729S :9738.)=S9779«S 9797 ~S 9811 
9825 19854 98709884 «989899279944 = 9938 9972 © 10000 10016 © 10030 10044 10075 19101 
10113 10118 «10129 «10155: 10182_-««- 10196» 10209-10232» 10261 -«10273»« 10300 :-«10317-««: 10333-«=—« 10342 ~=« 10379 
10391 10423 10635 10458 10470 10472 10475 10476 10489 10491 10492 10500 10503 10515 10558 
10569 10583 10600 10609 10637 10641 10649 10660 10661 10664 10670 10672 10674 10676 10678 
10690 10780 10782 10785 10810 10878 10880 10884 10903 10930 10932 10936 10983 11006 11011 
11031 11052 «11071 «11077, «11104-11165 11168) 11198) 11224-11226) 11236 11269-11284 «11289-11372 
11374 11379 «11384 «11390 «11396-11397 11399-11444 11447-11449 «11482-11483 «11484 «11485-11570 
11571, 11573 11583-11589 = 11593 
SBRCOD 6230 10475 10649 10983 11052 11165 11384 11444 11482 11483 
SCALL 7039 (9070 10097 10178 10195 10208 10260 10272 10314 10341 10376 10421 10547 10552 10598 
10777. 10809 10870 10874 10927 10978 10988 10993 11049 11057 11061 11108 11283 11388 11574 
SCHECK 6288 9116 9148 9154 9164 9175 9187 9211 9221 9232 9244 9279 9289 9300 9312 
9340 9347 9357 9367 9391 9398 9408 9419 9431 9455 9465 9476 9488 9512 9522 
9533 9545 9569 9579 9590 9602 9636 9668 9699 9729 (9738 (9779 (9797 (9811 9825 
9884 9898 9927 9944 9958 9972 10000 10016 10030 10044 10075 10101 10113 
10118 10129 10155 10182 10196 10209 + 10232 «10261 «=: 10273-« «10300 «10333-10391 «10435 «10458 += 10470 
0489 10491 10492 10503 10515 10558 10569 10583 10600 10609 10637 10641 10660 10661 
10672 10676 10780 10782 10810 10878 10880 10903 10930 10932 11006 11031 11071 11104 11168 
11198 11224 11226 «11236-11269: 11289-11372) -11379 11396) 11570-11871 
$cHK1  7725# 9068 9073 9 9076 9078 9083 9105 9107 9108 9110 9112 9124 9149 9152 
9161 9171 9182 9209 9218 9228 9239 9277 9286 $296 9307 9341 9344 9354 9364 
9392 9396 9405 9415 9426 9453 9462 9472 9% 9510 9519 9529 9540 9567 9576 
9586 9597 9635 9666 9698 9731 9736 9783 9792 9806 9820 9856 9865 9879 9893 
9930 9939 9953 (9967 10002 10011 10025 10039 10078 10093 10099 10109 10125 10158 10173 
| 10180 10189 10203 10234 10252 10255 10268 10301 10303 10310 10323 10329 10368 10371 10386 
10412 10417 10433 10459 10462 10463 10468 10471 10480 10481 10497 10513 10539 10545 10550 
| 10535 10563 10568 1057610580 10592 10896 10606 10638 10642 10643 10646 10649 10650 10652 
10654 10656 10658 10659 10663 10687 10688 10692 10750 10753 10757 10758 10793 10795 10817 
| 10845 10847 10848 10866 10875 10902 10905 10908 10945 10946 10980 10983 10991 10995 11009 
i 
| 
| 
| 
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MAINDEC=77-CNDVA~A MACY! 

CNDVAA.P11 16=DEC=82 15:12 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0151 
11033. 11050 =611052 11060 11064 11074 11105 11134 11136 611137 811140 11141 11144 11146 11148 
11151-11196) 11228) 11229-11270) :1127 112820 11363) 11364011365) 11375) 11375) 11381) 11441) 11444 
11448 811481 911482 8911483 «911572 ~=—«1157 11579 = 11580) 11581-11582) 11584)—S «11591 

SCKOP2 78267 9079 9080 9081 9082 9121 9122 912 9162 9173 9184 9219 9230 9241 9287 

929€ 9309 9345 9356 9365 9406 9417 9428 9463 9474 9485 9520 9531 9542 9577 
9588 9599 9795 9809 9823 9868 9882 9896 9942 9956 9970 10014 10028 0042 10095 
10112) = 30728) »=— 10176 )S 10193) 10206 )3=6: 10251 Ss: 10258 §=610270) §=610366)3=— 10411 3=s 10467 3=s: 10473 )3=—s «10647 = 10666 =: 10667 
10691 10755 10760 10774 10797 10817 10850 10852 10872 10890 10892 10910 10922 10924 10925 
10941 10942 10946 10964 11002 11003 11014 11036 11067 11068 11155 11158 11160 11173 11174 
| 11192) 11196-11200) 11217, 11219) 11221) 11232) 11238 = 11273) Ss: 11280)S 11389) 0 11442) 11445-11446): 111522 
11585 =611586)3= 11587-11592 
SCKR6 7554# 10691 11442 
 SCMND 6119# 9116 9148 9154 9164 9175 9187 9211 9221 9232 9244 9279 9289 9300 9312 
9340 9347 9357 9367 9391 9398 9408 9419 9431 9455 9465 9476 9488 9512 952 
9533 9545 9569 9579 9590 9602 9636 9668 9699 9729 9779 97 9811 9825 
9854 9870 9884 9898 9927 9944 9958 9972 10000 10016 10030 10044 10075 10101 10113 
10118 §=610129' «10155 = 10182) 10196 )3=—s: 102092 «10232 »=—s 110261 9s: 10273) = 10300) »3=s 10333 «= 10391 += 10435 Ss: 10458 =©10470 
10476 10489 10491 10492 10503 10515 10558 10569 10583 10600 19609 10637 10641 10660 10661 
10672 10676 10780 10782 10810 10878 10880 10903 10930 10932 11006 11031 11071 11168 

11198) =. 11224-11226): 11236): 11269) -111289) Ss -«111372 Ss: 11379 Ss 11396 )=s- 11570): 11571 

| SCOMPA 62804 911 9148 9154 9164 9175 9187 9211 9221 9232 9244 9279 9289 93 9312 
9340 934 9357 9367 9391 9398 9408 9419 9431 9455 9465 9476 9488 9512 9522 
9533 9545 9569 9579 9590 9602 9636 9668 9699 9729 738 9779 797 9811 9825 
9854 9870 9884 9898 9927 9944 9958 9972 10000 10016 10030 10044 10075 10101 0113 
10118 §=10129 10155 10182 10196 10209 10232 10261 10273 10300 10317 10333 103 10379 §=10391 
10423 10435 10458 10470 10476 10489 10491 10492 10503 10515 10558 10569 10583 10600 09 
10637 10641 10649 10660 10661 10672 10676 10780 10782 10810 10878 1088 10903 10930 10932 
10983 11006 11031 11052 11071 11104 11168 11198 11224 11226 11236 11269 11284 11289 11372 
11379-11396) 11444-11482: 11483-11570): 11571 
SCOUNT 7032 9070 10097 10178 10195 10208 10260 10272 10314 10341 10376 10421 10547 10552 10598 
10777, =10809 10870 10874 10927 10978 10988 10993 11049 11057 11061 11108 11283 11388 11574 
$D0 60464 10489 10660 
SELSE 63874 
SERRMS 60024 
SEXIFA 67054 
SEXIFO 67424 
SEXIF2 11384 
SEXIFS 67798 
SGENBR 59244 9116 9123 9148 9154 164 9175 9187 9211 9221 9232 9244 9279 9289 93 
9312 934 9347 9357 9367 9391 9398 9408 9419 9431 9455 9465 9476 9488 9512 
9522 953 9545 9569 9579 9590 9602 9636 9668 9699 9729 9738 9779 9797 
982 9854 9870 9884 9898 9927 9944 9958 9972 10000 10016 10030 10044 10075 10101 
10115) 10118 )3= 10129) 10155) Ss 10182) 10196 )3=—:'10209) Ss 10232 )=— «10261 »=s 10273. Ss 10300 »3=s 10317 = 10333. Ss 10342 §3= 110379 
10391 10423 10435 10458 10470 10472 10475 10476 10489 10491 10492 10500 10503 10515 10558 
10569 10583 10600 10609 10637 10641 10649 10660 10661 10664 10670 10672 10674 10676 10678 
0690 10780 10782 10785 10810 10878 10880 10884 10903 10930 10932 10930 10983 11006 11011 
11031 §=611052) = 11071) Ss 11077) 11104 Ss 11165): 17168 )=— 11198 )=— 11224) 11226) 11236) 11269) Ss: 11284): 11289): 11372 
11374 = 11379-11384) 11390) 11396) 11397) 111399) 11444 11447, 11449-11482) 11483): 11484 )=—s- 11485 )~—S «11570 

11571-11573) 11583): 11589 )=—s_- 11593 

/$GENTA 590 9109 9119 9150 9157 9167 9178 9190 9214 9224 9235 9247 9282 9292 9303 
9315 9342 9350 9360 9370 9393 9401 9411 9422 9434 9458 9468 9479 9491 9515 
9525 9536 9548 9572 9582 9593 9605 9643 9675 9708 9732 9749 9784 9802 9816 
9830 9857 9875 9889 9903 9931 9949 9963 9977, 10003 10021 10035 10049 10079 10104 
10116 §=6.10121 3s 10132) 10159) 10185)= 10199) 10212) 10235) =: 10264 »= 10276 )3=—s:'10302.S «10320 «=: 10336 )3=—s:110345 =: 10382 
10394 10426 10438 10460 10469 10472 10474 10475 10482 10489 10498 10499 10500 10507 10518 
10564 10577 10589 10607 10613 10639 10643 10649 10660 10664 10668 10670 10674 10678 10684 


J.12 
1 30(1046) 16-DEC-82 15:13 PAGE 207-5 


MAINDEC=Z2=CNDVA-A__—s MACY 

CNDVAA.P11  16=DEC=82 15:12 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0152 
10685 10690 10785 10789 10790 10813 10884 10887 10888 10906 10936 10939 10940 10983 11010 
11011 11034 11052. «11075. «11077,—«11106-Ss« 11164-11165.) «11171=« 11201-11230 11233.-«11240s11271S«11287 
11292 11370 11374 11328 11382 11390 11398 11406 11444 11447 11451 11482 11483 11484 11485 
11495 11549 11569 11573 11578 11583 11588 11599 

SIF 6306 99116 «= 9148154164975 9211 9221 9232 9244 9279 9289 9300 9312 
9340 9347 9357 9367 9391 9398 9408 9419 9431 9455 9465 9476 9488 9512 9522 
9533 9545 «Ss «9569 Ss«9579-Ss«9590s«802si«é8 386 Ss«9668)~=S«9699Ss—«9729°=Cté«—«é«‘73B2Ss«é779~=S «9797S s«9B11-—s—i‘i«éi B'S 
9854 9870 9884 9898 9927 9944 9958 9972 10000 10016 10030 10044 10075 10101 10113 
10118 10129 10155 10182 10196 10209 10232 10261 10273 10300 10333 10391 10435 10458 10470 
10476 10491 10492 10503 10515 10558 10569 10583 10600 10609 10637 10641 10661 10672 10676 
10780 10782 10810 10878 10880 10903 10930 10932 11006 11031 #11071 #111 11168 11198 11224 
11226 11236 11269 »«11289.-S«411372)=«411379°-S«11396=« 11570-11571 

SIFCOD 61784 9116 $123 9148 9154 9164 9175 9187 9211 9221 9232 9244 9279 9289 9300 

| 9312 9340 9347 9357 9367 9391 9398 9408 9419 9431 9455 9465 9476 9488 9512 
9522 9533 9545 9569 9579 9590 9602 9636 9668 9699 9729 9779 979 
9825 9854 9870 9898 9927 9944 9958 9972 10000 10016 10030 10044 10075 10101 
10113 10118 10129 10155 10182 10196 10209 10232 10261 10273 10300 10333 10391 10435 10458 

| 10470 10475 10476 10489 10491 10492 10503 10515 10558 10569 10583 10600 10609 10637 

| 10660 10661 10672 10676 10780 10782 10810 1 10880 10903 10930 10932 11006 11031 11071 

| 11104 11165 11168 11198 11226 11226 11236 11269 11289 11372 11379 «#11396 «#11570 «11571. ~=—« 11589 

SIFCON 6345 10317 10342 10379 10423 11284 

‘$IFOPR 5944# 9116 912 148 9154 91 9175 9187 9211 9221 9232 9244 9279 9289 93 

9312 9340 9347 9357 9367 9391 398 9408 9419 9431 9455 9465 9476 9488 9512 

| 9522 9533 9545 9569 9579 9590 9602 9636 9668 9699 9729 9738 9779 9797. 9 

9825 9854 9870 9884 9898 9927 9944 9958 9972 10000 10016 10030 10044 10075 10101 

| 10113. 10118 10129 10155 10182 10196 10209 10232 10261 10273 10300 10317 10333 10342 10379 

| 10391 10423 10435 10458 10470 10475 10476 10489 10491 10492 10503 10515 10558 10569 10583 
10600 10609 10637 10641 10660 10661 10672 10676 10780 10782 10810 10878 10880 10903 10930 

| 10932 11006 11031 11071 «#11104 «11165 «411168 11198 11224 11226 11236 11269 11284 11289 11372 

11379 11396 «11570 11571.~S«11589 

SLET 79094 90 9073 9075 9076 9078 9079 9080 9081 9082 9083 9105 9107 9108 9110 
9112 9121 9122 9124 9149 9152 9161 9162 9171 9173 9182 9184 9209 9218 9219 
9228 9230 9239 9241 9277 9286 9287 9296 9298 9307 9309 9341 9344 9345 9354 
9356 9364 9365 9392 9396 9405 9406 9415 9417 9426 9428 9453 9462 9463 72 
9474 9482 9485 9510 9519 9520 9529 9531 9540 9542 9567 9576 9577 9586 9588 

9597 99 9635 9666 9698 9731 9736 9783 9792 9795 9806 9809 9820 9823 9856 

| 9865 9868 9879 9882 9893 9896 9930 9939 9942 9953 9956 9967 9970 10002 10011 
10014 10025 10028 10039 10042 10078 10093 10095 10099 10109 10112 10125 10128 10158 10173 
10176 10180 10189 10193 10203 10206 10234 10251 10252 10255 10258 10268 10270 10301 1030 
10310 10323 10329 10366 10368 10371 10386 10411 10412 10417 10433 10459 10461 10462 10463 
10468 10471 10473 10480 10481 10497 10513 10539 10545 10550 10555 10563 10568 10576 10580 
10592 10596 10606 10638 10642 10645 10646 10647 10650 10652 10654 10656 10658 10659 10663 
10666 10667 10687 10688 10691 10692 10750 10753 10755 10757 10758 10760 10774 10793 10795 
10797 10817 10845 10847 108468 10850 10852 10866 10872 10875 10890 10892 10902 10905 10908 
10910 10922 10924 10925 10941 10942 10945 10946 10964 10980 10991 10995 11002 11003 11009 
11014 11033 11036 11050 11060 11064 11067 11068 11076 11105 11136 11130 11187 11140 «11141 
11144 11146 11148 11151 11155 11158 11160 11173 «11174 11192 11194 11196 11200 11217. 11219 

| 11221 11228 11229 11232 11238 11270 11273 11276 11280 11282 11363 11364 11865 11873 11875 

| 11381 11389 11441 11442 11445 11446 11448 11481 11522. 11572 11577 11579 «411580 «4+11581~=«11582 

11584 11585 11586 11587 11591 11592 

'SLPCNT 6927# 10649 10983 11052 11444 11482 11483 

|SOPADD 7566# 9079 9080 9081 9082 9121 9122 9124 10473 10649 10666 10667 10755 10817 10946 
10983 11052. 11192 11217 11232 11444 11482 11483 11522 11586 11587 11592 

SOPAND 76084 10691 11442 

$OPCD1 7649# 9079 9080 9081 9082 9121 9122 9124 9162 9173 9184 9219-9230 924) 9287 
9298 9309 9345 9356 9365 9406 9417 9428 9463 9474 9485 9520 9531 9542 9577 


SEQ 0153 


K 12 
15:13 PAGE 207-6 


CROSS REFERENCE TABLE == MACRO NAMES 


16=DEC-82 


MACY11 30(1046) 


16=DEC=82 15:12 


MAINDEC=Z77=CNDVA=A 


CNDVAA.P11 


owucoeoyse--fOOM-o- 


KN TNOMoOUuNaM orc 


366 
459 
492 
569 
646 
670 
760 
850 
908 
980 
049 
34 
7 
3 
7 
4 
7 
9 


SenMmTrnwn 


nom MTMNGOCUCUCUA KR. 
00.0 OoOMOoOMf.~F~To 
TTNOOR.DOOO KK MTN 
SCooQqoQoooeoocOoe er rcrneen-— 


a a 


7 
5 
1 
1 
7 
5 
09 
660 
692 
809 
884 
41 
0 
? 
5 
2 
8 
9 
8 
8 


or. 
~ Or. 
DOO UMTS TNO 
are 
- 


MAINDEC=Z7-CNDVA-A 


CNDVAA.P11  16=DEC=82 

SOPOR 76034 9162 

9599 9809 

10924 10925 

SOPROT 74934 11585 

PRO 7752# 9068 

9161 9171 

9392 9396 

95 9597 

993 9939 

10180 10189 

10412 10417 

10555 10563 

10654 10656 

10845 10847 

11033 11050 

11151 11196 

11481 11482 

'SOPR1 © 7799" 10649 

'SOPR2  7868% 9079 

9298 9309 

| 9588 9599 

10112 10128 

10691 10755 

10941 10942 

11192 11194 

11585 11586 

SOPSHF 7510# 11445 

$OPSUB 75864 11389 
SOPSWB 74854 
SOPXOR 76334 
R 60654 

$PUT 70224 10097 

10809 10870 
$STRUC 57654 

$SUBON 58114 9119 

9315 9342 

9525 9536 

9830 9857 

10116 10121 

10394 10426 

10589 10607 

10789 10790 

11075 11077 

11390 11398 

1588 11589 

STHEN 60274 9116 

9340 9347 

9533-9545 

9854 9870 

10118 10129 

10476 10491 

10780 10782 

11226 11236 
$TILA 65264 
$TILO 65634 

SUNTL2 66214 10475 





MACY11 30(1046) 


15:12 


— 


a 


L_12 
16=DEC-82 15:13 PAGE 207-7 


CROSS REFERENCE TABLE -- MACRO NAMES 


= $DOO00——=—=4=DOSOSDSCOOOOO —-OOo 


—— 
—— fh) 


6 


Oum—Wwuirn — oo 
ASUNVIWU——Wwoem Orn 


CML — LNMVOOAULSVOWVNENO 


WN OO" DO 


—— 
NO —NAONLS INNO DO 


a 


ad ed ed ed ed ed 
oo ——-COCoOCOoOUoUNnNNonD co 


— SMOOOL—OvVWw— or 
N MOOLSNVNOWOOO OO 
Vw ——$DWOfO-WWN WO 


aS 


“3 
ODVINDOALSM LMOKLNMOAGL— Ow 
SMWWOKNA—— CONWOACOWAL—O A— 


—Ccocowvuo0nonmo ——cOocownononm —o 
SNW—WO0— WWODMYUWW Oo —f 


a 


193 06 
6 


Swoon 


I 
WNNIGRWN MLOMOWDOWOr) 


——OCo0v0nd eer to tt 


a) 
NO~n 


—"AOWOO0-— = fLOWUOWDLNVYVNS Ww 


9463 
10461 


ee 
0 ~—-COooooououwnn 
ALWODOIW— 
&onon-o— 
WOONUNWOOONO 


VN on 
ONEQOM 


RV 

—Sooo0o0no ——CcO°o°oo°ov0 0s 
SOWONER LVOAUWNONEN 
NWWWWOS OOONOOMWUIW 
—NWOOULS UNWOONM—WMouW 


a ee 


9542 
10850 


SEQ 0154 


---o —— ——————— -- ee a ee ae oa © 


i 

MAINDEC=22=CNDVA-A MACY11 30(1046) 16-DEC-82 15:13 PAGE 207- 

\CNDVAA.P11 —-16=DEC=82 15:12 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0155 
SUNTL3 66008 

SWHILE 64608 10489 10660 

ISSCMRE 90498 

\SSCMIM 9 


9109 9119 9150 9157 9167 9178 9190 9214 9224 9235 247 9282 9292 9303 
9315 342 9350 9360 9370 9393 9401 9411 9422 9434 9458 9468 9479 9491 9515 
9525 9536 9548 9572 9582 9593 960 43 9675 9708 9732 9749 9784 9802 9816 
9830 9857 9875 9889 9903 9931 9949 9963 997 1000 10021 1003 1004 1007 10104 
10116 §=6.10121 Ss: 10132) 10159) 10185 ~° «10199 «= 10212) 10235 «= 10264 «39s 10276 )3=—s 110302.) Ss «10320 §= 10336 )3=—s «110345 =: 10382 
0394 10426 10438 10460 10469 10472 10474 10475 10482 10489 10498 10499 10500 10507 10518 
10564 10577 10589 10607 10613 10639 10643 10649 10660 10664 10668 10670 10674 10678 10684 
0685 10690 10785 10789 10790 10813 10884 10887 10888 10906 10936 10939 10940 10983 11010 
11011 «11034 = 110 11075 11077) 11106) 11164) 11765) 11771) 11207) 11230011233) 11240) Ss 11271 Ss: 11287 
11292) «113310 11370) 11374) Ss: 111376)=—s 111382) 11390) 11398 )3=— 11406) 11419) 11444-11447) 11451-11464 =: 111482 
11483. 11484 «= 11485) 11495) 11528) = 11549) 11552-11569 )=—s«111573) Ss-« 11578 =611583)3=—s «11588 =: 11599 
SSGETS 58514 9119 9123 9150 9157 9167 9178 9190 9214 9224 9235 9247 9282 9292 9303 
9315 9342 9350 9360 9370 9393 9401 9411 9422 9434 9458 9468 9479 9491 9515 
9525 9536 9548 9572 9582 9593 9605 9643 9675 9708 9732 9749 84 9802 9816 
9830 9857 9875 9889 9903 993 9949 9963 997 10003 10021 10035 10049 10079 10104 
10116 §=610121 )3Ss 10132) 10159 )=- 10185 )=— 10199» 10212.) 10235 = 10264 +=: 10276 0302 10320 10336 10345 10382 
10394 10426 10438 10460 10472 10474 10475 10482 10498 10499 10500 10507 10518 10564 10577 
10589 10607 10613 10639 10643 10649 10664 10668 10670 10674 10678 10684 10685 10690 10785 
10789 10790 10813 10884 10887 10888 10906 10936 10939 10940 10983 11010 11011 11034 11052 
11075) 11077) 11106) 11165) 11771) 11207) 11230) 11233) 11240011271) 11287)S 11292) «11374 )3=s:«11376)Ss: 11382 
1384 =11390) «611398 = 11406) = 11444 11447) 11451-11482) 1148S) 11484) 11485) 11495-11549) )=—- 1115735): 11578 
11583. 11588 §=611589 = 11599 
SSGETT 58614 10472 10664 10674 10678 10785 10884 10936 11374 11384 11573 11583 
SSLPCN 6887# 10649 10983 11052 11444 11482 11483 
SSNEWT 16624 89274 9100 9142 9202 9260 9335 9386 9447 504 9625 6 689 9722 
9773 9848 9921 999 10069 10149 10226 10295 10359 10404 10451 10553 10632 10744 10838 
10958 11026 11096 11264 11305 
$SPOP 58754 9119 9123 9157 9167 9178 9190 9214 9224 9235 9247 9282 9292 9303 
9315 9342 9350 9360 9370 9393 9401 9411 9422 9434 9458 9468 9479 9491 9515 
9525 9536 9548 9572 9582 9593 9605 9643 9675 9708 9732 9749 9784 9802 9816 
9830 857 9875 9889 9903 9931 9949 9963 .9977 10003 100217 10035 10049 10079 10104 
10116 §=6. 10121) 10132) 10159) Ss 10185 = 10199) 10212 )3= 10235 = 10264 «= 10276 )3=s 10302 )3=s 10320 »9= 10336 )3=— 10345 =: 10382 
10394 10426 10438 10460 10472 10474 10475 10482 10498 10499 10500 10507 10518 10564 10577 
10589 10607 10613 10639 10645 10649 10664 10668 10670 10674 10678 10684 10685 10690 10785 
10789 10790 10815 10884 10887 10888 10906 10936 10939 10940 10983 11010 11011 11034 11052 
11075) 11077) 11106) 11165) 11171) 11207) 11230) 11233) 11240) = 11271 Ss :11287 39 11292) 11374 3=:11376 )3=- 11382 
1130 + 4 11388 11444 11447 11451 11482 114835 11484 11485 11495 11549 11573 11578 11583 
$$PUSH 5839# 9109 9116 9148 9154 9164 9175 9187 9211 9221 9232 9244 9279 9289 9300 
9312 9340 9347 9357 9367 9391 9398 9408 9419 $431 9455 9465 9476 9488 9512 
9522 9533 9545 9569 9579 9590 9602 9636 9668 9699 9729 9738 9779 9797 9811 
9825 9854 9870 9884 9896 9927 9944 9958 9972 10000 10016 10030 10044 1007 10101 
10113 «10118 )3=— 10129' 10155 10182 )»= 10196 )3=—s: 10209 »Ss - 10232 »3=s 10267 Ss «10273 Ss: 10300 )3=s «10317 »3=—s 10333. «10342 = 10379 
10391 10423 10435 10458 10469 10470 10472 10476 10489 10491 10492 10500 10503 10515 10558 
10569 10583 10600 10609 10637 10641 10649 10660 10661 10664 10670 10672 10674 10676 10678 
10780 10782 10785 10810 10878 10880 10884 10903 10930 10932 10936 10983 11006 11031 11052 
11071, 11104 1116411168) = 11198 )=— 11224 11226) 11236) 11269): 11284) 11289) «11331-11370 )0 11372) -11374 
11379 = 11390) |= 11396) )=— 11419) 1144411464 = 11482-11483) 11528 )=—- 11552) «11569 )=— 11570-11577) 11573): 11583 


a 
| 
| 
| 
| 
H 
| 
| 
| 
| 


| MAINDEC=Z7Z7-CNDVA=A MACY11 30(1046) 

CNDVAA.P11 16=DEC=82 15:12 

“SSSELE 7244 

S$SET 116354 

'SSSETM §=© 90624 

\S$SSETS 5820 9109 911 9148 

933 934 934 9357 
9522 9533 9545 9569 

9825 9854 9870 9884 

10113) 10118 )=— 10129): 10155 
10391 10423 10435 10458 

10569 10583 10600 10609 

10780 10782 10785 10810 

11071 «11104 11164-11168 
11379 11390) = 11396 =: 11419 

SSSETT  5830# 

‘SSSKIP 1746 89274 9149 9341 
10459 10481 10497 10520 
11074 11105 11176 #811270 

-EQUAT 189% 7959% 8927 

-HEADE 614 79584 8924 

. 56584 89274 11638 

-SETUP 1213 79584 

- SWRHI 1044 7959 8925 

~SWRLO 8925# 

-SACT1 50644 79604 

-SAPTB 51094 79604 90494 

-SAPTH 5370 79604 

-SAPTY 55474 79604 11620 

-SASTA 54174 

-SCATC 932 79584 9045 


-$DIV 45874 
- SEOP 22144 79584 11608 
-SERRO 270 79594 11623 
-SERRT 28964 
-SMULT 45234 


-SRDDE 38914 
-$RDOC 37974 
-SREAD 33954 79584 11617 
- $R2AZ 584 


“$20cA 


co 


12 
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CROSS REFERENCE TABLE == MACRO NAMES 


——s 3s ts 3 Ss = 3 
ee sxzseees 
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a= UWOOUW 
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SEQ 0156 


B 13 
MAINDEC=Z7=CNDVA=A MACY11 30(1046) 16=DEC-82 15:13 PAGE 207-10 
CNDVAA.P11 16=DEC=82 15:12 CROSS REFERENCE TABLE == MACRO NAMES 


- ABS. 015454 000 


ERRORS DETECTED: 0 
CNDVAA, CNDVAA/CRF /NL: TOC=CNMAC2.SML ,CNMAC MAC ,CNDVAA.P11 
RUN-TIME: 85 90 5 SECONDS 


RUN-TIME RATIO: 341/182=1.8 
CORE USED: 43k (86 PAGES) 


SEQ 0157 


